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This  program  is  furnished  by  the  Government  and  is 
accepted  and  used  by  the  recipient  upon  the  express 
understanding  that  the  United  States  Government 
makes  no  warranties,  express  or  implied,  concerning 
the  accuracy,  completeness,  reliability,  usability, 
or  suitability  for  any  particular  purpose  of  the 
information  and  data  contained  in  this  program  or 
furnished  in  connection  therewith,  and  the  United 
States  shall  be  under  no  liability  whatsoever  to 
any  person  by  reason  of  any  use  made  thereof. 

The  program  herein  belongs  to  the  Government.  There¬ 
fore,  the  recipient  further  agrees  not  to  assert  any 
proprietary  rights  therein  or  to  represent  this 
program  to  anyone  as  other  than  a  Government  program. 
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FOREWORD 


This  manual  is  intended  for  the  user  who  wishes  to  become  informed 
of  the  internal  atiu^Lu.c:  of  the  computer  program  and  for  the 
programmer  who  is  concerned  with  making  modifications  to  the 
program.  It  supplements  the  Users  Manual  dated  July  1074,  which 
contains  a  technical  description  of  the  program  and  instructions 
for  its  use. 
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INTRODUCTION 


1.  ORIGIN  OF  PROGRAM 

This  proqram  was  originally  developed  in  The  Hydrologic  Engineering 
Center  by  Leo  R.  Beard  and  has  been  augmented  and  restructured  du-inn  the 
past  several  years  in  connection  with  its  use  in  many  water  resource 
studies  throughout  the  United  States.  The  current  version  of  the  program 
has  a  new  structure  of  Input  data  and  operation  control. 

2.  PURPOSE  OF  PROGRAM 

This  program  performs  a  multipurpose  routing  of  flows  in  a  reservoir 
system  for  up  to  twelve  periods  of  uniform  or  varying  length  per  year 
based  on  varying  flow  requirements  at  reservoirs,  diversions  and  downstream 
control  points.  Power  peaking  and  energy  requirements  at  reservoirs 
can  be  accommodated.  The  proqram  can  accept  any  nonlooplnq  configuration 
of  reservoirs,  diversions,  power  plants  and  requirements,  but  does  not 
Drovide  for  channel  routings  ( i . e . ,  attenuation  of  flows  in  river  channels) 
or  percolation  losses.  It  can  assign  economic  values  to  all  outputs 
and  summarize  and  allocate  these  In  various  ways.  It  can  automatically 
iterate  to  optimize  yield  at  a  specified  location.  The  flexibility  of 
input  and  output  requirements  and  of  computation  techniques  enable  the 
program  to  solve  relatively  simple  problems  with  minimum  effort  or 
elaborate  complex  problems  with  a  relatively  high  degree  of  accuracy. 

The  proqram  is  intended  for  use  on  a  variety  of  computer  systems,  and 
for  this  reason,  coding  is  in  FORTRAN  IV  and  adheres  as  much  as  possible 
to  operations  that  are  common  to  FORTRAN  software  available  to  practically 
all  larqe  computers. 

3.  NOTIFICATION  OF  PROGRAM  MODIFICATIONS 

A  user  or  programmer  who  finds  a  mistake  or  desirable  modification  in 
this  program,  or  who  has  difficulty  using  the  program,  is  requested  to 
notify  The  Hydrologic  Engineering  Center.  Also,  the  Center  would 
appreciate  receiving  notification  of  changes  required  to  run  the  proqram 
on  specific  computer  configurations. 

4.  ORGANIZATION  OF  THE  PACKAGE 

A  general  overview  of  the  organization  of  the  package  can  be  obtained 
from  the  logic  flow  chart  of  figure  1.  The  package  consists  of  the  main 


program  and  six  subroutines.  The  first  subroutine,  COMP,  could  have  been 
inciuded  as  part  of  the  main  program  except  for  the  need  to  segment  for 
overlay  use  In  some  computers  or  to  reduce  the  requirements  for  symbol 
table  capacity.  Dimensions  are  specified  in  the  COMMON  statements,  except 
for  those  peculiar  to  each  segment,  which  are  contained  in  separate 
DIMENSION  statements.  A  detailed  description  of  the  calculations  being 
performed  In  each  segment  Is  contained  in  the  following  chapters. 

Section  letters  referred  to  are  shown  on  comment  cards  in  the  program 
listing  in  column  4  inmediately  preceded  and  followed  by  equal  signs. 
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DESCRIPTION  OF  PROGRAM 


5.  MAIN  PROGRAM  DESCRIPTION 

The  main  program  Initializes  many  of  the  variables  and  performs  most 
of  the  printout.  Use  is  made  of  subroutine  INOUT  to  assign  default  values 
to  variables  that  are  not  read  and  to  data  on  tape  2  for  retrieval  by 
the  main  program.  Subroutine  COMP  is  used  to  perform  system 
computations  for  each  year.  BLOCK  DATA  is  used  to  initialize  variables 
to  constants  and  alphanumeric  information  at  compilation  time.  Other 
subroutines  are  used  for  special  purposes  as  described  in  their 
respective  chapters. 

SECTION  A:  Values  of  zero  for  ITRNS  and  1  for  IPNT  are  set  as 
standard  transfer  and  print  controls  that  might  be  overridden  later. 

All  tapes  are  rewound  for  initial  use.  Then  many  variables  that  summarize 
output  for  the  entire  job  are  Initialized.  If  ITRNS  is  1,  the  yield 
optimization  routine  has  caused  a  transfer  back  to  initialize  variables 
again.  A  transfer  is  then  made  to  bypass  all  system  read  statements. 

If  ITRNS  is  zero,  this  Is  a  normal  operation,  and  system  variables  are 
Initiated  in  preparation  for  reading  system  data. 

SECTION  3:  Subroutine  INOUT  is  called  to  read  cards  and  to  write 
cr.  s373tcH~TTTcs  (‘.apes  2  and  *).  !YR1  is  set  at  the  starfng  year 
Identification  number  for  printout  use.  I YEAR  is  set  the  same  for  use  sn 
subroutine  OUTPT.  Specified  values  of  efficiency  are  stored  in  the  EFY 
array  for  each  Diant  in  case  they  are  not  to  be  interpolated  from  table 
values.  The  number  of  iterations  per  computation  interval  (NCYCL)  is  set 
to  2.  If  evaporation  is  not  read  each  year,  the  pattern  evaporation  is 
read  and  printed  here,  and  if  It  totals  ^CVCL  c,t  *o  1.  because 

an  accurate  computation  can  be  made  in  one  pass  (except  for  power).  If 
there  are  power  plants  in  the  system,  two  iterations  per  interval  are 
needed,  and,  if  there  is  to  be  a  power  system  computation,  NCYCL  is 
set  to  3,  because  power  is  allocated  after  the  first  cycle  and  it  takes  two 
more  cycles  to  complete  accurate  evaporation  and  power  computations.  If 
system  power  is  to  be  computed,  system  power  requirements  are  read  and 
printed.  If  this  is  a  yield  optimization  computation,  a  new  pane  is 
started  on  the  printer. 

SECTION  C:  For  yield  optimization,  CFLDW  is  used  as  the  yield  multi- 
plier  and  is  initialized  to  1.0.  Tape  2  is  rewound.  For  yield 
optimization,  maximum  shortage  or  minimum  surplus,  as  ratios  of  requirements 
at  station  IFLOW,  will  be  determined;  these  quantities  are  set  to  zero 
and  .5  respectively  in  order  to  initiate  the  search.  TFLOW  is  set  to  -1 
to  show  that  a  critical  period  has  not  yet  started.  The  initial  storaqe 
at  each  reservoir  is  then  entered  as  the  storage  at  the  start  of  the 
first  period  and  end  of  preceding  period.  The  long  computation  loop  for 
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a  year  is  then  started.  Runoff  quantities  are  read  from  tape,  as  are 
all  other  quantities  that  vary  from  year  to  year.  Then,  if  yield 
optimization  is  desired  (IFLOW  positive),  the  required  flow  for  station 
I  FLOW  is  retrieved  from  the  temporary  array  used  in  Section  F  and  multiplied 
by  the  coefficient  successively,  approximated  in  previous  iterations. 

SECTION  D:  Local  inflows  at  each  control  point  (runoff  below  upstream 
reservoirs)  are  next  computed  from  runoff  station  data  and  converted  to 
flow  units  used  in  later  computations.  If  JUPQI  is  positive,  local  flow 
is  computed  as  the  sum  of  flows  that  have  been  read  in  for  every 
intermediate  area  between  control  points  and  below  upstream  reservoirs. 

If  any  of  these  are  negative,  they  are  set  to  zero  and  a  message  is 
printed.  A  check  is  made  that  minimum  desired  flows  are  at  least  as 
large  as  minimum  required  flows,  which  in  turn  must  be  at  least  as 
large  as  leakage.  Then  desired  flows  are  stored  in  the  QMI NS  array, 
which  is  the  target  flow  after  any  shortage  declaration  made  in  subroutine 
COMP. 

SECTION  E:  Sums  of  flows  for  the  year  are  initialized  to  zero  to 
start  accumulations.  Those  that  will  be  used  to  compute  shortage 
indexes  are  initialized  to  .001  to  avoid  dividing  by  zero  in  that  computa¬ 
tion.  Peak  power  for  year  (SYPMX)  is  set  high  in  order  to  search  later 
for  the  lowest  value  for  the  year.  The  titles  for  the  year  or  group  are 
printed,  and  the  computation  subroutine  is  called. 

SECTION  F:  For  the  yield  optimization  routine,  total  end-of-period 
storage  and  total  storages  at  top  and  bottom  of  the  conservation  pool 
are  obtained  for  all  reservoirs  actively  serving  the  yield  location  (control 
point  IFLOW).  If  the  conservation  pool  is  full,  shortage  is  set  to 
zero  and  a  new  accumulation  of  total  requirement  since  full  reservoir  is 
set  to  zero.  If  the  conservation  space  has  not  yet  filled  (TFLOW  =  -1), 
no  computations  are  made.  If  the  conservation  space  has  filled  but  is 
not  now  full,  minimum  desired  flows  are  accumulated  and  any  shortages 
are  also  accumulated.  The  minimum  remaining  conservation  pool  is 
recorded  for  use  in  determining  how  much  the  yield  can  be  increased  in 
the  event  that  no  shortages  occur.  The  minimum  ratio  of  surplus  to  accumulated 
yield  since  reservoirs  were  last  full,  and  the  maximum  ratio  of  shortage 
to  accumulated  yield  are  stored  for  later  use.  Some  constants  are  then 
established  for  computing  average  flows  to  date  and  a  printout  DO-loop 
is  started.  This  DO-loop  is  bypassed  if  printout  is  temporarily  being 
suppressed  (IPNT  negative).  A  print  indicator  (JPRNT)  is  computed  for 
each  control  point  to  suppress  printout  if  desired  either  for  all  control 
points  or  for  the  specific  control  point.  Then  pertinent  quantities  are 
stored  on  tape  3  for  use  in  the  subroutine  ECQU.  In  order  to  allocate 
economic  benefits  to  upstream  reservoirs,  the  difference  between  inflow 
and  outflow  at  each  reservoir  for  the  interval  is  computed  and  the  sum 
for  all  upstream  reservoirs  calculated.  Then  those  reservoirs  having 
a  negative  deference  if  the  sum  is  positive  or  a  positive  difference 
if  the  sun  is  negative  are  removed  from  the  sum,  and  the  difference  is 
set  to  zero.  This  avoids  assigning  negative  contributions  to  any  benefit 
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or  loss.  The  contribution  ratio  for  each  reservoir  is  stored  in  trie  QII 
array.  If  the  sum  is  negative,  all  upstream  reservoirs  are  given  equal 
weight  in  benefits  allocation  and  QII  is  the  reciprocal  of  the  number 
of  reservoirs.  The  values  of  QII  and  the  total  difference  of  inflow 
and  outflow  at  upstream  reservoirs  is  written  on  tape  3.  Other  quantities 
to  be  saved  on  tape  3  depend  on  the  type  of  benefit.  If  the  benefit  is  a 
function  of  flow  at  the  control  point,  both  preproject  and  regulated 
flows  must  be  saved  in  order  to  establish  benefits.  If  t he  benefit 
depends  on  storage,  power  generation  or  diversion,  only  the  quantity 
concerned  is  saved,  since  it  is  assumed  that  these  items  would  not  exist 
without  the  project. 

SECTION  G:  If  output  units  other  than  standard  are  specified,  all 
output  quantities  involved  are  converted  in  tin's  section.  The  constant 
CCFS  converts  from  cfs  or  ni^/sec  to  desired  flow  units  and  CACFT  converts 
from  acre-feet  or  thousand  cubic  meters  to  the  desired  volume  unit. 

SECTION  H:  Average  flows  to  date  are  computed  by  multiplying  the 
average-to-date  for  the  preceding  year  by  the  number  of  preceding  years, 
adding  this  year's  value  and  then  dividing  by  the  total  years  to  date. 
Squares  of  annual  flow  shortage  ratios  are  accumulated  for  later 
computation  of  shortage  indexes. 

SECTION  I:  Control -point  data  relating  to  inflows  and  diversions  are 
printed  in  this  section.  Headings  with  pertinent  information  on  system 
configuration  are  first  printed.  The  sum  of  squares  of  annual  diversion 
shortage  ratios  is  accumulated  for  later  computation  of  the  diversion 
shortage  index. 

SECTION  J :  Reservoir  and  power  data  are  printed  in  this  section. 
Average  annual  evaporation  and  power  quantities  to  date  are  computed.  The 
sum  of  squares  of  annual  power  shortages  is  accumulated  for  later 
computation  of  the  power  shortage  indexes.  Then  power  quantities  are 
converted  to  kilowatts  from  thousand  kilowatt-hours  if  that  print  option 
is  specified.  The  minimum  peaking  power  capability  for  the  year  is 
established  for  printing  with  monthly  peaking  capability  if  this  print 
option  is  specified.  An  operation  control  indicator  for  each  month  is 
printed  for  analysis  of  the  operation  study. 

SECTION  K:  At  the  start  of  this  section,  control  point  data  relative 
to  outflows  are  printed.  Then  complete  arrays  as  specified  are  written 
on  tapes  1  and  4  for  rearranging  later.  The  year  count  is  incremented 
and  system  power  summary  is  printed.  The  sum  of  squares  of  annual  system 
power  shortages  is  accumulated  for  later  computation  of  the  system 
power  shortage  index.  The  year  DO-loop  is  ended. 


SECTION  L:  Adjustment  for  the  yield  optimization  routine  is  accomplished 
here.  If  TFLOW  is  -1,  the  reservoirs  have  not  filled  in  the  entire 
operation,  and  a  shortaqe  ratio  of  .3  is  arbitrarily  set  In  order  to 
force  a  downward  adjustment  of  the  tarqet  yield  for  the  next  trial.  If 
a  shortaqe  ratio  qreater  than  .01  occurred,  it  is  constrained  to  a 
maximum  of  .3,  and  the  coefficient  CLFOW  by  which  the  first  estimate  of 
yield  is  to  be  multiplied  for  each  successive  trial  is  multiplied  by 
i  minus  this  shortage  ratio.  If  the  resulting  value  of  CFLOW  exceeds  1, 
a  reversal  in  the  direction  of  adjustment  occurred,  and  the  adjustment 
is  reduced  by  one  half  to  inhibit  continuous  reversals  due  to  over¬ 
adjustments.  If  the  reservoirs  have  filled  and  no  shortaae  occurred 
and  if  the  surplus  ratio  Is  qreater  than  .01,  it  is  constrained  to  a 
maximum  of  .15,  and  CFLOW  is  multiplied  by  1  plus  this  surplus  ratio. 

If  the  resultinq  value  of  CFLOW  is  less  than  1,  the  adjustment  is  reduced 
by  half.  If  either  the  shortage  ratio  or  surplus  ratio  is  less  than 
.01,  optimum  yield  has  been  approximated,  and  the  indicator  IPNT  is 
set  to  1  in  order  to  call  for  one  more  complete  computation  with  printout 
and  for  subsequent  termination  of  the  job.  The  value  of  ITRNS  is  set 
to  1  to  call  for  another  trial,  and  adjustment  values  are  printed.  The 
year  counter  is  set  to  the  initial  value  for  the  next  trial.  Note  that 
this  entire  yield  computation  Is  bypassed  if  IPNT  exceeds  zero,  as  it  would 
Oi.  the  last  trial.  If  the  yield  adjustment  computation  is  not  bypassed, 
a  new  trial  is  started  immediately  following  the  adjustment.  Otherwise, 
long-term  average  flow,  evaporation  and  power  values  are  printed.  If 
the  update  routine  is  called  for,  this  means  that  only  a  part  of  the 
operation  period  has  been  computed,  and  the  program  branches  back  to 
read  new  system  data  for  continuing  the  operation  study. 

SECTION  M:  Except  for  short-interval  computations,  the  shortage 
indexes  are  printed  next.  They  are  computed  by  multiplying  the  sum  of 
squares  of  annual  shortage  ratios  by  100  and  dividing  by  the  number  of 
years  of  operation.  If  requirement  is  zero,  the  shortage  index  is  set 
to  -1.  Temporary  variables  for  flow  shortaqe  indexes  are  used  in  order 
to  subscript  them  in  the  order  that  they  are  to  be  printed  out  instead 
of  by  control  point  number. 

SECTION  N:  Storage  frequency  data  are  printed.  This  Is  percentage  of 
the  conservation  space  occupied.  When  desired,  subroutines  ECON  and/or 
REARNO  is  called.  A  branch  back  is  then  made  for  the  next  job  or 
termination  of  the  run. 

6.  RLOCK  DATA  DESCRIPTION 

Constants  and  alphanumeric  information  are  stored  at  compilation 
time  by  DATA  statements.  Values  equaling  the  dimension  limits  are 
stored  for  testinq  against  subscripts  and  also  for  initializing  arrays. 

Input  card  identification  codes  are  stored  and  later  used  to  determine 
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the  sequence  of  cards  read.  FORMAT  specifications  used  in  subroutine 
OUTPT  are  stored  in  arrays.  A  check  of  the  DIMENSION  limits  should  be 
made  to  insure  that  the  array  is  larqe  enough  to  accommodate  the  FORMAT. 

The  carriage  control  character  "+"  which  causes  the  printer  to  print 
two  or  more  records  on  one  line  may  differ  on  some  systems.  These  changes 
are  noted  on  the  program  listing. 

7.  SUBROUTINE  INOUT  DESCRIPTION 

The  input  structure  of  this  program  was  designed  so  that  cards  or 
values  may  be  omitted  and  commonly  used  values  assigned  as  default 
values  to  the  variables.  Values  that  were  either  read  or  assigned  are 
printed. 

SECTION  A:  Default  values  are  assigned  here  to  variables  not  required 
as  Input]  These  are  overridden  when  values  are  read  from  cards. 

SECTION  B:  Title  cards  are  read  from  cards  if  they  are  from  the  first 
job.  Otherwise  they  are  read  from  tape  2,  written  at  the  end  of  the 
previous  job.  If  there  are  no  jobs  following,  an  "end-of-flle"  is 
detected  and  the  run  Is  terminated.  Job  specification  cards  are  read 
and  written  al phanumerical ly  to  a  scratch  file  (tape  4).  The  identification 
codes  are  tested  to  determine  the  sequence  of  the  cards.  The  file  Is 
then  rewound  and  the  card  Images  read  again  under  their  respective 
variable  names  and  format.  Contingency  variables  are  set  to  1.0  if  they 
were  not  specified  in  the  job  data.  Standard  conversion  limits  and 
unit  names  are  defined  if  other  desired  quantities  were  not  specified. 

SECTION  C:  Printout  of  the  job  specification  data  is  done  before 
reading  the  control-point  sequence.  A  conversion  constant  is  set  to 
convert  average  flows  to  volume  units  per  day.  Interval  identification 
numbers  and  the  total  number  of  days  per  year  are  computed.  The  constants 
for  converting  input  inflows  and  demand  units  to  those  needed  in  the 
proqram  are  established.  If  specified  constants  are  negative,  this  means 
that  flows  are  to  be  in  volume  units,  and  a  conversion  to  average  flow 
rates  Is  made. 

SECTION  D:  Start  reading  control-point  sequence  data.  Here,  again, 
the  same  procedure  of  reading  from  cards,  identifying  and  writing  to  a 
scratch  unit  is  done.  Since  quantities  will  later  be  subscripted  usinq 
the  control  point  identification  number  as  a  subscript,  these  are  tested 
for  dimension  size,  and  the  job  is  aborted  if  the  dimensions  are  exceeded. 
Control  points  are  counted.  Specification  and  operation  data  for  this 
control  point  are  printed. 

SECTION  E:  If  a  reservoir  exists  at  this  control  point,  the  identifi¬ 
cation  number  is  tested  against  the  reservoir  dimension  limit,  and  the 
numbers  and  identification  of  reservoirs  in  the  system  and  of  reservoirs 
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at  and  above  this  control  point  are  computed.  If  there  is  a  control  point 
downstream  and  there  is  no  reservoir  here,  this  and  all  unregulated  control 
points  directly  upstream  are  identified  as  part  of  the  uncontrolled 
area  above  that  downstream  control  point.  If  there  Is  a  control  oolnt 
downstream  and  a  reservoir  at  this  control  point,  this  reservoir  is 
identified  as  a  reservoir  directly  above  that  downstream  control  point. 
Reservoirs  at  and  above  this  control  point  are  next  identified  as 
reservoirs  at  or  above  the  downstream  control  point  also.  If  there  is 
not  a  reservoir  at  this  control  point,  all  reservoirs  directly  above  this 
control  point  are  identified  as  reservoirs  also  directly  above  the 
downstream  control  point  (that  is,  there  are  no  intermediate  reservoirs). 

If  there  Is  a  diversion  at  this  control  point,  the  total  number  of 
diversions  in  the  system  is  incremented  and  tested  against  the  dimension 
limit.  Diversion  quantities  are  subscripted  with  the  sequence  number 
in  which  the  diversions  are  identified.  Cross-identification  with  the 
control  point  number  is  established.  The  number  of  diversions  at  or  above 
this  control  point  is  incremented,  and  the  diversion  control-point  number 
Is  Identified  as  one  of  them. 

SECTION  F:  If  the  second  quantity  of  the  required  diversion  read  on 
the  OV  card  is  negative.  It  signifies  that  this  diversion  is  actually  a 
return  flow,  with  the  first  quantity  Identifying  the  diversion  where  the 
water  comes  from  and  the  second  quantity  the  ratio  of  the  diverted  flow 
that  returns.  These  are  printed.  If  the  second  quantity  Is  not  negative, 
this  Is  a  normal  diversion,  and  remaining  diversion  demands  are  printed. 
These  demands  are  multiplied  by  the  conversion  factor  read  earlier  (Section 
C).  These  are  put  In  the  QDIVS  array,  which  will  represent  flow 
requirements  after  any  shortage  is  declared.  Diversions  at  and  above  this 
control  point  are  identified  as  diversions  at  and  above  the  downstream 
control  point  if  one  exists  and  if  no  reservoir  exists  at  this  control 
point. 

SECTION  G:  Maximum  and  minimum  required  and  desired  constant  flows 
are  subscripted  by  control  point  and  month  in  the  event  that  seasonally 
varyinq  quantities  are  not  read  In  subsequently.  If  specified,  quantities 
for  each  of  these  variables  are  read  In  as  seasonally  varying  quantities. 
All  such  quantities  are  then  converted  to  units  needed  in  the  program.  If 
yield  at  this  control  point  is  to  be  optimized  (IFLOW  positive),  the 
variable  QMIN  Is  stored  also  as  TMPR  for  modification  in  each  successive 
iteration  of  the  optimization  routine. 

SECTION  H:  Reservoir  operation  data  are  printed.  The  reservoir 
elevation  for  the  last  period  at  this  location  Is  defined  as  zero  so  that 
there  will  not  be  an  undefined  quantity  If  this  is  a  tailwater  reservoir 
for  another  power  plant.  7ero  should  be  a  low  enouqh  elevation  to  cause 
the  downstream  reservoir  not  to  control  during  the  first  computation 
period.  If  a  negative  quantity  is  read  as  a  temporary  variable  for 
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Initial  storage,  storage  Is  that  already  in  memory,  and  this  must  be  an 
update  operation.  Storages  for  each  level  are  read  and  printed.  If 
there  is  no  seasonal  change,  only  one  value  for  each  level  need  be  read, 
and  a  routine  fills  in  the  remaining  values.  Table  values  of  storage, 
elevation,  area  and  outlet  capacity  are  next  read  and  printed.  Power 
plant  data  are  next  read  and  printed,  using  the  subscript  IP  as  the 
sequence  number  of  the  power  plant. 

SECTION  I:  If  tailwater  elevation  was  read  as  zero  or  blank,  a  table 
of  flow  vs.  tailwater  elevation  is  read  and  printed.  If  peaking  capacity 
is  to  be  computed  as  a  function  of  outflow,  a  table  for  that  purpose  is  read 
and  printed.  If  specified,  a  table  of  plant  efficiency  (if  EFFCY  is  -1) 
or  power  per  unit  of  flow  (if  EFFCY  is  -2)  is  read  and  printed.  If 
the  power  requirement  is  not  to  be  different  every  year,  it  Is  read  as 
a  power  amount.  If  positive,  or  as  a  plant  factor,  if  negative.  Proper 
conversion  is  made  immediately.  If  this  power  plant  is  in  a  power  system 
operation,  it  is  identified  with  the  system,  and  the  system  plant  count 
Is  incremented.  A  branch  back  is  made  to  the  next  control  point  data 
If  there  is  a  downstream  control  point.  When  all  control  point  data  have 
been  read,  a  summary  of  upstream  reservoirs  serving  each  control  point  is 
made  for  later  printout. 

SECTION  J :  The  scratch  tape  is  rewound  at  this  point  and  input  data 
that  changes  from  year  to  year  is  written  so  that  it  can  be  retrieved 
repeatedly  for  optimization  runs. 

8.  SUBROUTINE  COMP  DESCRIPTION 

This  subroutine  Is  called  from  the  main  program  for  the  purpose  of 
performing  the  detailed  system  computations  for  an  entire  year. 

Section  A:  The  level  at  the  bottom  of  flood-control  space  is 
computed,  and  the  constant  to  convert  the  product  of  flow,  head  and  efficiency 
to  kilowatts  Is  established.  The  DO-loop  for  a  year  of  computation 
intervals  is  started,  and  this  DO-loop  constitutes  practically  the  entire 
subroutine.  A  number  of  constants  are  established.  NC  is  set  to 
zero  In  order  to  count  Iterations  through  the  system  for  successively 
adjusting  average  power  head  and  lake  areas.  Plant  power  requirement 
(POWR)  is  then  stored  as  system  contribution  by  that  plant  (PWER)  for 
the  first  Iteration  and  evaporation  is  converted  to  feet  If  it  Is  given 
In  inches.  Indicator  IPX  is  set  to  zero  for  each  power  plant. 

Subsequent  values  of  1  will  Indicate  that  releases  are  controlled  by 
system  power  requirements. 

SECTION  B:  This  section  Is  used  to  declare  shortages  If  operation 
criteria  provide  for  reducing  services  when  the  agqregate  storage  in 
specified  reservoirs  is  below  a  specified  quantity.  Storage  deficiency 
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is  first  computed  and  then  multiplied  by  a  given  ratio  to  obtain  the 
proportion  by  which  diversion  quantities  are  to  be  reduced.  The  process 
is  repeated  for  reducing  river  flow  requirements.  The  new  target  flows 
are  designated  Q9IVS  for  diversions  and  OMINS  for  river  flows.  Target 
river  flows  are  not  permitted  to  be  lowered  below  minimum  flow  requirements. 

SECTION  C:  This  section  starts  each  iteration  through  the  system  for 
successively  approximating  average  power  head  and  reservoir  area  for  the 
computation  interval.  For  each  control  point,  an  initially  large  value 
is  set  for  OMAXA,  which  is  the  largest  flow  physically  possible  and 
usually  corresDonds  to  outlet  capacity  at  reservoirs.  Then  for 
reservoir  control  points  only,  the  following  things  are  done.  Storage 
at  the  start  of  the  interval  is  set  as  the  average  storage  for  the  first 
iteration.  The  ratinq  table  for  each  reservoir  is  searched  with  the 
average  storage  and  area;  outlet  capacity  and  pool  elevation  are  inter¬ 
polated  from  the  table.  Evaporation  for  the  interval  is  computed.  In 
the  very  first  computation  interval  for  the  job  the  current  elevation 
is  stored  for  the  preceding  Interval  In  the  event  that  the  reservoir  is 
downstream  of  and  controls  tailwater  at  an  upstream  power  reservoir 
(see  Section  E).  When  power  is  specified  as  a  function  of  the  head  or 
storage,  power  coefficients  are  interpolated  from  the  table.  The  main 
DQ-loop  for  determininn  system  operation  is  then  started. 

SECTION  D:  The  target  flow  for  each  successive  control  point  is 
designated  as  OA  and  the  controlling  condition  (ICSE)  is  defined  as  flow 
target  at  the  same  control  point.  Whenever  this  target  flow  is  changed 
later,  the  controlling  condition  is  reidentified.  The  variable  TMPP 
is  then  designated  as  the  equivalent  desired  (nonpriority)  flow.  Return 
diversion  flows,  if  any,  are  then  Identified,  and  total  diversion  (QDIVR) 
above  each  control  point  and  below  all  reservoirs  Immediately  upstream 
is  computed. 

SECTION  E:  For  reservoirs,  the  maximum  release  (QOTMX)  is  set  equal 
to  the  smaller  of  the  outlet  capacity  and  the  downstream  channel  capacity. 
For  nonreservoir  control  points,  the  QOTMX  must  be  adjusted  for  safety 
allowance  (QL*CF10D)  for  flood  control  and  the  safety  allowance 
(Ql*CLQCL)  already  Included  in  all  computations  of  QOT.  For  all  control 
points,  this  quantity  is  allocated  as  a  constraint  on  releases  from 
upstream  reservoirs.  For  each  reservoir  level,  the  total  upstream 
release  plus  local  runoff  and  minus  local  diversion  is  computed.  This 
quantity  Is  constrained  by  constraints  previously  placed  on  upstream 
reservoir  releases  and  previously  committed  releases  where  conservation 
releases  are  given  a  priority  over  flood-control  release  curtailment 
(where  ICONS  is  1).  Maximum  release  from  each  upstream  reservoir  Is 
then  established  as  the  release  Interpolated  betv/een  adjacent  levels 
that  causes  capacity  at  the  current  control  point  to  be  exactly  equaled 
If  any  storage  at  the  control  point  is  filled.  The  minimum  release 
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(QOTMN)  Is  set  at  the  leakage  value  (less  scheduled  diversions,  because 
this  Is  to  be  Increased  later  by  any  diversion  shortage  that  occurs). 

SECTION  F;  The  variable  TMPPR  is  set  as  release  required  for  power 
generation.  For  power  computation,  tailwater  elevation,  if  specified  as 
zero,  is  computed  as  a  function  of  outflow.  If  so  indicated,  tailwater 
elevation  is  taken  as  the  elevation  of  the  downstream  reservoir  plus  2 
feet  (0.6  meters)  unless  a  specified  tailwater  elevation  is  higher.  On 
the  first  iteration,  since  the  downstream  reservoir  elevation  has  not  yet 
been  computed,  it  is  necessary  to  use  that  for  the  preced*rg  period. 

Power  head  is  then  computed  and  the  amount  of  flow  (TMPP)  needed  to 
produce  required  power  is  computed.  If  this  flow  exceeds  that  needed  for 
other  purposes,  it  will  be  stored  in  the  QA  array  and  the  controlling 
condition  respecified.  For  cases  where  power  head  is  a  function  of  release 
rate  (usually  at  run-of-rlver  plants),  a  provision  is  made  to  cycle 
back  within  this  section  to  make  a  more  accurate  estimate  of  flow 
required  for  power  generation. 

SECTION  G:  A  quantity,  QO,  is  computed  to  represent  the  release  from 
this  reservoir  that  would  drain  the  reservoir  to  a  specified  level  with 
no  contribution  from  upstream  reservoirs.  Later,  a  quantity  QOT  will 
represent  the  release  if  all  upstream  reservoirs  were  drawn  to  the  same 
level,  subject  to  previously  imposed  constraints.  QOMN  is  a  minimum  value 
of  QO  committed  at  any  time  and  is  initially  set  at  full  reservoir  value. 
When  a  reservoir  is  not  intended  to  serve  some  specific  downstream 
purpose,  this  quantity  will  be  held  constant  as  a  contribution  by  the 
reservoir.  Next,  actual  diversion  is  computed  for  areas  without  reservoirs 
by  shorting  diversions  where  the  total  requirement  for  diverted  water 
(QDIVR)  exceeds  available  local  runoff. 

SECTION  H:  In  preparation  for  computinq  total  flow  obtainable  by 
drawing  on  upstream  reservoirs,  subject  to  constraints,  upstream  reservoirs 
that  can  be  called  upon  are  identified  by  a  positive  value  of  IOPER. 

The  highest  level  (LCNS)  below  which  full  conservation  releases  are 
permitted  when  they  cause  channel  capacity  exceedence  is  then  established. 
Since  reservoirs  might  be  operated  differently  for  each  downstream 
control  point,  it  is  necessary  to  compute  QOT  for  all  reservoirs  at  or 
above  a  control  point  in  order  to  establish  proper  quantities  for  that 
control  point.  This  is  done  for  each  r^'ervolr  by  adding  QO  at  the 
reservoir  to  QOT  values  already  computed  for  all  reservoirs  immediately 
upstream.  These  quantities  are  to  be  used  for  allocating  releases 
to  meet  downstream  requirements.  Similar  quantities  are  needed  for 
later  allocating  system  power  requirements ,  except  that  they  must  be 
constrained  by  power  plant  capacity  releases  within  the  period  of  system 
load  and  system  reservoirs  can  all  be  called  upon  reqardless  of  whether 
they  operate  for  the  control  point  requirements.  Because  of  these  two 
differences,  QOT  to  be  used  for  later  system  power  allocation  is 
computed  separately  and  temporarily  stored  in  the  PH  array. 
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SECTION  I:  A  check  Is  made  for  cases  where  the  operation  of  upstream 
power  system  reservoirs  after  the  first  Iteration  Is  to  be  frozen  In 
order  not  to  overgenerate  (except  to  prevent  overfilling  the  reservoir). 

This  Is  only  done  If  the  upstream  reservoir  release  is  controlled  by 
system  power  requirements  and  even  then  It  Is  done  if  usable  storage  at 
the  control  point  would  otherwise  be  exhausted  (L  ■  2).  A  check  Is  then 
made  to  assure  that  QOT  at  upstream  reservoirs  at  least  equals  leakage 
at  all  levels  below  full  reservoir.  QOT  Is  constrained  to  committed 
conservation  releases  at  levels  below  flood  control  space,  then  to 
maximum  permissible  release,  and  then  not  to  be  less  than  QOT  at  the 
next  higher  level.  This  last  check  Is  to  assure  that  previously 
imposed  constraints  do  not  cause  the  reservoir  to  over  fill.  Special 
checks  are  made  for  QOT  at  the  top  level  (L  *  NL)  to  assure  that  it  is 
not  less  than  leakage  minus  scheduled  diversions  at  the  current  control 
point  and  to  constrain  to  controlled  spillway  releases  if  surcharqe 
is  permitted.  A  further  check  Is  made  to  assure  that  previously  committed 
conservation  releases  are  made  If  they  are  given  priority  over  maintaining 
flows  within  channel  capacity  (ICONS  *  1).  Then  a  routine  Is  provided 
for  diverting  all  spills  through  diversions  if  desired.  If  not, 
maximum  permissible  release  is  raised  as  necessary  to  prevent  exceeding 
reservoir  and  permissible  surcharge  storage  capacity. 

SECTION  J:  For  nonreservoir  control  points,  QOT  is  computed  by  adding 
QOT  for  all  reservoirs  immediately  upstream  to  local  flow  (adjusted  for 
contingency  allowance)  and  subtracting  committed  diversions  in  the  local 
area.  The  optional  diversion  spill  routine  is  then  included  for  these 
nonreservoir  control  points.  An  optional  diagnostic  printout  is  provided, 
which  permits  a  coarse  trace  of  system  computations.  Diversion  shortages 
are  indicated  when  QOT  at  the  bottom  of  usable  space  (L  *  1  or  2,  depending 
on  whether  or  not  diversion  has  priority)  is  less  than  leakage.  If  so, 
desired  diversion  quantities  are  shorted  by  an  amount  necessary  to 
provide  water  for  leakage.  If  any.  If  diverted  quantities  are  changed, 
then  QOMNA  and  QOMNB,  the  physical  limits  of  QO,  just  be  changed 
accordingly,  and  QOMN  maintained  within  those  limits.  QOT  values  must 
also  be  changed  In  accordance  with  the  diversion  change,  and  Its  logical 
limits  checked. 

SECTION  K:  The  level  to  which  upstream  reservoirs  must  be  drawn 
(subject  to  previously  imposed  constraints)  in  order  to  provide  the 
desired  flow  is  determined  by  searching  QOT  values  for  the  control  point. 

If  this  Is  below  level  2,  priority  releases  are  identified,  and  the  amount 
of  draw-down  below  level  2  In  order  to  provide  priority  release  Is  computed. 
If  the  desired  level  Is  below  the  bottom  of  the  flood  control  space, 
a  transfer  Is  made  directly  to  the  conservation  release  routine  (Section  M). 

SECTION  L:  If  the  desired  level  is  above  the  bottom  of  the  flood 
control  pool  (L  =  NFL),  the  indicator  IFC  is  set  to  1  and  a  transfer  made 
to  the  conservation  release  routine  in  order  to  identify  releases  that 
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would  otherwise  be  necessary  for  conservation  purposes.  After  return  to 
the  flood  release  routine,  a  tarqet  release  is  set  that  equals  permissible 
release  minus  any  contingency  allowance  for  flood  control.  The  level  within 
the  flood  control  space  that  would  correspond  to  that  release  is  then 
determined.  Releases  for  all  upstream  reservoirs  are  computed,  and,  if 
they  are  changed  a  new  control  condition  (flood  control)  is  identified. 

A  new  value  of  QOMN  is  set  to  correspond  to  any  release  changes  and  checked 
against  permissible  limits.  This  variable  can  be  used  later  to  freeze 
the  storage  chanqe  when  the  reservoir  is  not  to  be  called  upon  to  serve 
a  specific  requirement  downstream.  The  lower  limit  OOTMN  is  also 
reset.  An  optional  diagnostic  printout  is  provided. 

SECTION  M:  Conservation  releases  at  all  reservoirs  at  or  above  the 
control  point  are  made  in  this  section  if  the  desired  level  is  below  the 
flood  control  space.  Corresponding  values  of  QOMN  and  QOTMN  are  also 
reset.  If  releases  at  any  reservoir  are  changed,  the  new  control 
condition  is  identified.  The  new  release  is  identified  as  a  conservation 
release,  and  an  optional  diagnostic  printout  is  provided.  Then  for 
nonreservoir  control  points,  the  resulting  flow  is  computed.  If  this  is 
negative,  the  diversion  is  reduced  by  that  deficiency  and  the  river  flow 
and  conservation  flow  are  set  to  zero.  This  section  ends  the  loop  for 
determining  reservoir  releases. 

SECTION  N:  Inflows  and  preproject  (without  reservoirs  or  diversions) 
flows  are  computed  for  all  control  points.  End-of-period  storaqe  is 
computed  for  all  reservoirs.  If  it  is  negative,  it  is  because  evaporation 
was  too  large,  so  the  evaporation  is  corrected  by  the  shortage,  and 
storage  is  set  to  zero.  Average  storage  for  use  during  the  next 
iteration  is  computed  as  the  average  of  starting  and  ending  storage  for 
the  period.  End-of-period  elevation  is  determined  from  the  end-of-oeriod 
storage.  Power  peaking  capacity  Is  set  to  plant  capacity  plus  overload 
or,  if  it  is  a  function  of  head  or  outflow,  it  is  interpolated  on 
the  basis  of  monthly  average  storage  or  outflow  respectively. 

SECTION  0:  It  Is  possible  that  conservation  releases  have  been 
adjusted  or  changed  In  such  a  way  that  contributing  reservoirs  were  not 
fully  Identified.  It  is  then  necessary  to  check  the  entire  system 
starting  at  the  downstream  end  and  allocating  conservation  releases  to 
upstream  reservoirs.  In  order  to  do  this,  it  is  necessary  to  interpolate 
between  upstream  flows  already  Identified  as  conservation  releases  and 
total  releases  at  each  reservoir  in  turn.  Power  is  computed  from  the 
actual  release,  making  sure  that  the  actual  release  is  not  exactly 
zero,  because  it  later  will  be  used  as  a  divisor  In  system  power 
computations. 

SECTION  P:  System  power  requirement  is  distributed  amonq  reservoirs 
in  each  system  in  turn.  For  each  system,  the  power  already  generated 
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and  usable  for  that  system  load  (PGAU)  is  computed.  For  the  first 
iteration  (*!C  =  1),  this  quantity  for  each  plant  is  tentatively 
stored  as  power  requirement  (PWER)  for  the  next  iteration,  unless  it  is 
less  than  tne  basic  at-site  requirement  (POWR).  Then  the  usable  power  that 
could  be  produced  by  drawinq  all  reservoirs  down  to  each  successive 
level  is  computed.  This  is  accomplished  by  multiplyinq  the  power 
generated  (TMP,  which  has  not  been  constrained  to  plant  capacity) 
by  the  ratio  of  PG,  representing  to  this  point  the  flow  resulting 
from  drawing  all  reservoirs  to  the  specified  level,  to  the  actual  release 
computed  thus  far  (HA  -  GLKG).  Resulting  values  are  stored  in  the 
same  PG  array.  This  is  constrained  by  plant  capacity  at  system  load 
factor  and  peakino  capability  at  the  uoper  end  and  by  at-site  require¬ 
ment  at  the  lower  end.  Total  values  of  assigned  system  requirement 
(PNERT),  at-site  requirement  (PGWRT)  and  qenerated  and  usable  power 
(PGAUT)  are  then  calculated  for  that  system.  Also,  the  system  total 
power  that  would  be  developed  by  drawinq  all  reservoirs  dov.r.  to  each 
level  is  computed.  These  latter  values  are  searched  to  determine  the 
level  of  drawdown  required  to  develop  system  power. 

SECTION  Q:  System  power  requirement  is  assigned  to  each  plant  so 
as  to  draw  the  reservoirs  down  to  the  level  determined  above  and,  if  this 
assigned  value  of  PW ER  equals  or  exceeds  power  already  qenerated  (TMPP, 
unconstrained  by  plant  capacity),  IPX  is  set  to  1  to  indicate  that 
releases  on  the  next  iteration  will  be  controlled  by  system  power 
requirements.  If  there  is  sufficient  storage  to  produce  system  power  and 
if  releases  for  other  purposes  do  not  force  assignment  in  excess  of 
system  power,  then  the  power  allocation  computation  is  finished.  Other¬ 
wise,  system  total  values  of  capability  (TMPA),  at-site  requirement  (TMP), 
and  newly  assigned  system  power  (TEMP)  are  computed.  If  the  assigned 
total  is  less  than  system  requirement,  an  Increased  assignment  is  made 
by  interpolating  between  assigned  values  and  plant  capability.  These 
assigned  values  cannot  be  met,  but  shortages  will  be  assigned  to  plants  on 
this  basis.  If  the  assigned  total  is  greater  than  system  requirement,  a 
decreased  assinnment  is  made  by  interpolating  between  assigned  values  and 
at-site  requirements.  This  completes  the  power  allocation  and  the  next 
conolete  system  computation  (iteration)  can  be  performed. 

SECTION  R:  A  quantity  CTX  is  established  for  computing  annual  power 
quantities  in  order  to  obtain  a  direct  sum  (CTX  »  1)  if  quantities 
represent  energy  units  (such  as  kw-hr)  or  to  obtain  an  average  if  quantities 
are  in  power  units  (such  as  kw).  Generated  power  at  each  plant  is 
constrained  by  plant  capacity  and  annual  values  of  power  (SYPWR),  a*-site 
requirement  (SYPR),  system  requirement  (SYSP),  system  shortaqe  at  each 
plant  (SYSYS)  and  at-site  shortages  (SYSHP)  are  computed.  The  number  and 
maximum  amount  of  shortages  is  established.  System  total  vatues  of 
generated  power,  requirement  and  shortage  are  computed  and  annual  values 
obtained. 
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SECTION  S:  Annual  reservoir  evaporation  is  computed  and  end-of-period 
storage  is  assigned  as  state-of-period  storage  for  the  next  period.  A 
count  is  made  of  the  number  of  periods  that  storaqe  is  within  specified 
ranges  of  the  conservation  storaqe  (minimum  pool  to  bottom  of  flood- 
control  pool  for  that  month).  The  exact  reference  level  for  each 
reservoir  is  computed.  Flow  shortages  are  computed,  counted  and  summed 
for  the  year.  The  maximum  shortage  is  established.  This  is  done 
separately  for  desired  flows  and  required  flows.  Annual  values  for  other 
flow  quantities  are  also  computed.  Diversion  shortages  and  annual 
values  are  determined.  For  return  flows,  this  computation  is  bypassed. 

This  completes  all  computations  for  the  year  and  a  return  is  made  to 
the  main  proqram. 

9.  SUBROUTINE  ECON  DESCRIPTION 

This  subroutine  is  called  from  the  main  proqram  to  read  benefit  functions 
in  tabular  form  relating  economic  values  to  hydrologic  quantities,  to 
evaluate  benefits  for  the  various  nurposes  at  specified  locations  and  to 
summarize  the  benefits  In  various  forms  usable  by  planners  and  managers. 

SECTION  A:  The  number  of  items  In  each  table  of  economic  functions 
( NL )  Is  set  at  8  and  the  maximum  number  of  economic  functions  (NE)  for 
any  control  point  is  also  set  at  8.  Control-point  numbers  and  names  read 
in  the  main  program  are  printed.  All  economic  function  names  (types  of 
benefits)  are  read  and  printed.  The  variable,  NEA,  is  set  to  zero  to  compute 
the  total  number  of  types  of  economic  functions  used.  The  DO-loop  for 
computinq  benefits  for  each  economic  function  is  then  started.  The 
year  name,  IYRA,  is  set  to  the  first  year  of  the  operation  study  (obtained 
from  the  main  program).  Before  reading  each  type  of  benefit  function  for 
all  control  points,  an  Indicator  JTMP  Is  set  to  zero  to  print  the  word 
"none"  later  if  that  type  of  function  Is  not  used  at  any  control  point. 

In  the  control-point  DO-loop,  some  benefit  sunnation  values  are  initialized 
to  zero  for  later  accumulations.  If  a  benefit  function  is  called  for  by 
the  IE  indicator  for  any  control  point,  the  variable  MTH  is  set  to  zero 
and  tables  are  read  and  printed.  If  the  control  point  identification  on 
the  tables  is  wronq,  a  note  to  that  effect  is  printed  and  a  return  Is 
made  to  the  main  proqram,  by-passing  the  economic  routines.  The  maximum 
tabulated  benefits  for  each  month  are  added  to  obtain  yearly  maximum 
benefits,  VMAX.  If  the  month  number  Indicated  on  the  benefits  table  is 
larqer  than  the  current  month,  I,  tables  for  all  months  up  to  that  one 
are  equated  to  that  table.  A  value  of  VLEFT  for  each  function  and  control 
point  Is  initiated  at  maximum  annual  tabulated  benefits  for  later 
determination  of  remaining  benefits. 

SECTION  B:  The  DO-loop  for  each  year  is  started  (within  the  benefit 
type  DrT-loop).  If  IEC0N  exceeds  1,  unallocated  monthly  benefits  are  to  be 
printed.  Then  some  summation  variables  are  initialized  to  zero  and  the 
control-point  0°. loop  is  started  (within  the  benefit  and  year  DO-loops). 
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Monthly  allocation  ratios  for  each  reservoir  at  and  above  the  control 
point  are  read,  and  total  change  In  flow  from  preproject  conditions  for 
each  month  Is  read  from  tape  3.  Then  a  second  DO-loop  for  benefits 
functions  Is  constructed  within  the  three  exlstlnq  DO-loops. 

SECTION  C:  The  Indicator  IB  Is  negative  to  indicate  that  this  is  the 
first  pass  through  the  routine  for  this  benefit  function.  The  hydrologic 
quantities  for  each  month  are  read  into  the  Q  array.  A  month  DO-loop 
is  used  to  look  up  the  benefit  value  for  that  month’s  hydrologic  variable, 
and  the  benefit  value  Is  stored  in  the  TMPP  array.  Hydrologic  quantities 
that  correspond  to  the  benefit  tyoe  designated  by  the  outer  DO-loop 
are  read  from  tao^  3,  by-passing  other  hydrologic  quantities  on  tape  3. 

When  by- passed  quantities  are  flows  (IE  3  1),  it  is  necessary  to  read 
tape  3  twice  for  project  and  preproject  flows.  The  benefit  for  each 
interval  is  added  to  the  V  and  VU  arrays  to  determine  total  value  under 
allocated  and  unallocated  conditions.  The  benefit  is  also  entered  in 
the  BEN  array  to  obtain  the  gain  In  benefits  with  the  project.  Some 
sums  are  obtained,  and  benefits  are  subtracted  from  the  VLEFT  array  to 
obtain  remaining  benefits.  When  the  month  DO-loop  is  completed  for  any 
benefit  function  not  based  on  streamflow  (IE  j*  1),  monthly  benefit  print¬ 
out  is  made.  If  specified,  and  computation  for  that  benefit  function  Is 
complete.  If  the  benefit  function  Is  based  on  flow,  the  negative  value 
of  IB  causes  a  transfer  back  to  compute  benefits  that  would  occur  without 
reservoirs.  At  this  time,  IB  Is  set  to  Zero  and  reservoir  effects  are 
subtracted  from  flows.  Benefits  are  obtained  fron  the  benefits  tables 
for  each  modified  flow  and  stored  in  the  TMPP  array.  These  are  then 
subtracted  from  those  previously  computed  that  were  stored  in  the  BEN 
array,  and  the  differences  a^e  stored  in  the  same  array.  After  this  Is 
done  for  every  month,  the  computed  Increase  in  benefits  Is  allocated  to 
upstream  reservoirs,  if  there  are  upstream  reservoirs.  The  remaining 
project  benefits  are  then  stored  in  the  BEN  array.  A  branch  back  for 
computing  preproject  benefits  Is  made.  IB  is  set  to  1,  and  preproject 
flows  are  read  from  tape  3  and  stored  in  the  Q  array.  These  are  used  to 
compute  preproject  benefits,  which  In  turn  are  subtracted  from  the  project 
benefits  (BEN)  and  the  difference  stored  In  the  BEN  array.  The  preproject 
benefits  are  also  subtracted  from  the  V  and  VU  arrays.  Monthly  benefits 
are  then  printed,  if  specified.  When  the  control-point  DO-loop  is  completed, 
total  monthly  benefits  are  printed,  If  specified.  The  year  counter  Is 
Incremented,  and  the  year  DO-loop  continued.  After  the  year  DO-loop 
Is  completed,  the  number  of  economic  functions  actually  used  (NEA)  Is 
checked,  and  the  economic  functions  DO-loop  is  continued.  When  it  is 
completed,  NE  is  set  to  NEA  for  efficient  printout  control. 

SECTION  D:  Benefits  are  next  printed,  as  Indicated  In  headings.  Sums 
are  initiated  at  zero,  and  a  variable  TMP  is  the  reciprocal  of  the 
accumulated  number  of  years  of  benefits.  The  unallocated  benefits  (VU) 
are  multiplied  by  T*4?  (to  obtain  average  annual  values),  sums  for  all 
types  of  benefits  are  computed,  and  the  resulting  quantities  are  printed. 
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Next,  allocated  benefits  (V)  are  multiplied  by  TMP  to  obtain  annual 
values,  sums  for  all  benefit*  are  computed,  and  the  resulting  values  are 
printed. 

Next,  total  benefits  obtained  by  project  operation,  includinq  all 
values  obtained  without  (before)  the  project,  are  computed  from  VMAX 
(maximum  tabulated  benefits)  and  VLEFT  (benefits  left  or  unattained)  and 
stored  in  the  V  array.  Sums  are  computed  and  quantities  are  printed. 

Total  potential  benefits  (VMAX)  consist  of  maximum  tabulated 
quantities  in  the  benefits  tables.  These  are  added  and  printed.  Remaining 
benefits  (VLEFT)  are  potential  benefits  minus  benefits  attained  with  the 
project.  These  are  added  and  printed.  A  return  to  the  main  program  is 
then  made. 

10.  SUBROUTINE  REARNG  DESCRIPTION 

This  subroutine,  which  Is  called  only  once  from  the  main  program, 
accepts  output  data  retrieved  by  subroutine  BINTP,  designates  the 
rearranging  to  be  done  and  print  formats  to  be  used,  and  sends  it  to 
subroutine  OUTPT  for  rearranging  and  printout.  The  common  statements 
contain  variable  names  that  are  convenient  to  this  subroutine  and  not 
necessarily  the  same  as  in  other  segments.  These  are  designed  to  automatically 
store  in  memory  the  quantities  transferred  from  one  subroutine  to  the 
other.  It  should  be  noted  that  DLTA1  overlaps  intentionally  Into 
DLTA2  and  DLTA3,  whose  variables  are  not  used  in  the  program.  Care 
must  be  taken  to  be  certain  that  DLTA1  occupies  the  low  order  address. 

Functions  to  be  arranqed  that  are  designated  by  the  subscripted 

variable  IRG  In  the  main  program  are  here  designated  II  to  110  corresponding 

to  IRG(l)  to  IRG(IO). 

Format  specification  for  key  printout  in  subroutine  OUTPT  is  placed 
In  storage  here  to  facilitate  the  designation  of  format  when  calling 
OUTPT.  Each  time  that  OUTPT  is  called,  one  format  starting  with  I,  one 
starting  with  J,  and  one  starting  with  K  are  used. 

After  slewing  printer  to  a  new  page,  ICND  Is  set  to  zero  to 
Indicate  that  BINTP  Is  being  called  for  the  first  time.  In  the  event 
that  the  study  contains  more  than  50  years  of  output,  only  the  first  50 
years  are  accepted  due  to  memory  limitations,  and  a  message  is  printed 
stating  this. 

The  statements  startinn  IF  (I1.LE.0)  for  II  throunh  110  then  provide 
for  rearranging  each  of  the  10  variables  in  turn,  as  specified  and  as 
described  in  the  following  paragraphs. 

If  II  is  positive,  BINTP  Is  called  with  a  zero  value  of  ICND  as 
the  argument.  The  second  argument  is  KCPT  because  the  variable  being 
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rearranged  Is  subscripted  for  each  control  point.  The  study  title  and 
name  of  the  variable  being  rearranged  are  printed.  Then  OUTPT  Is  called. 
If  the  value  of  12  is  1  or  3,  data  are  arranged  by  year  for  each  control 
point.  If  12  is  2,  data  are  arranged  by  control  point  for  each  year. 

If  12  is  3,  it  is  changed  to  2  upon  the  first  return  and  OUTPT  is 
called  again  in  order  to  produce  both  arrangements. 

The  identical  procedure  is  used  for  the  next  six  variables,  12 
through  17.  The  variable  ICND  is  changed  to  1  in  BINTP  the  first  time 
it  is  called. 

Variable  IS  is  storage  change,  and  it  is  obtained  from  variable 
17,  storage  at  end  of  interval.  BINTP  is  called  only  if  it  has  not 
already  been  called  for  variable  7,  to  read  storage.  The  storage  changes 
are  computed  by  subtracting  the  end-of-preceding-month  storage  from  end- 
of-current-month  storage  and  placing  In  ARRAY.  Likewise  the  end-of- 
preceding-year  storage  is  subtracted  from  the  end-of-current-year  storage 
and  placed  in  AVG.  Then  OUTPT  is  called  for  earlier  variables  (II 
through  17). 

Variable  19  Is  treated  exactly  as  are  II  through  17. 

Variable  110,  if  positive,  calls  for  rearranging  a  combination  of 
quantities  associated  with  reservoir  operation.  BINTP  and  OUTPT  are  not 
used  for  this.  If  110  equals  2,  only  data  for  reservoirs  havinq  power 
plants  are  to  be  rearranged.  Headings  are  printed  and  then  a  year  of 
data  are  read  from  tape  (after  rewinding  1).  If  power  is  to  be  printed 
In  kilowatts  Instead  of  thousand  kilowatt  hours,  the  conversion  is  made 
for  locations  having  power  plants  (IPWR  positive).  For  locations  without 
power  plants,  the  power  operations  are  bypassed,  and  different  print 
statements  are  used.  Rearrangement  under  110  is  for  all  years  for 
one  station  at  a  time. 

11.  SUBROUTINE  OUTPT  DESCRIPTION 

This  subroutine  is  called  from  subroutine  REARNG  each  time  that  a 
different  variable  is  to  be  printed  out  in  a  particular  rearranged  form. 
Data  obtained  in  REARNG  are  placed  in  the  arrays  ARRAY  and  AVG  and  trans¬ 
ferred  in  common  with  common  statements  DLTA1 ,  DLTA2  and  DLTA3  used  only 
for  ARRAY,  using  durmy  variables  and  intentional  overlap.  In  the 
subroutine  name  argument,  ITST  contains  information  pertinent  to  which 
variables  are  to  be  printed  in  rearranged  form,  IND  gives  arrangement 
information;  and  IFMT ,  JFMT  and  KFMT  are  format  specifications  composed 
in  subroutine  REARNG. 

The  subroutine  contains  two  main  parts.  In  the  first  part,  printout 
is  by  years  for  each  location  (year  DO-loop  inside  location  DO-loop),  and 
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printout  In  the  second  part  Is  by  location  for  each  year  (location  DO-loop 
Inside  year  DO-loop).  If  IND  Is  1  or  3,  the  first  part  is  used,  and  If 
IND  Is  2,  the  second  part  Is  used.  When  IND  is  3,  It  is  changed  to  2  in 
subroutine  REARNG  as  the  printout  for  the  first  part  is  completed,  so 
that  both  arrangements  are  printed  out. 

If  ITST  is  1,  variables  printed  in  turn  are  unregulated  flows,  river 
flows  and  desired  flow  shortages,  for  which  quantities  are  available  at  all 
control  points.  Consequently,  headlnqs  are  printed  without  further  testing, 
and  quantities  for  each  year  are  printed.  Averaqes  are  computed  for  each 
calendar  month  at  each  station  and  are  printed  before  printout  for  the 
next  station  starts. 

If  ITST  is  2,  variables  printed  in  turn  are  diversion  and  diversion 
shortage,  and  these  are  available  only  for  control  points  having  a  nonzero 
value  for  IDIV.  Headings  are  printed  for  these  control  points,  and  data 
are  printed  exactly  as  for  the  cases  where  ITST  *  1. 

If  ITST  is  3,  minimum-flow  shortages  are  printed  for  locations  havina 
minimum-flow  requirements  specified  (where  DM2  is  nonzero).  Heading:  are 
printed  for  these  locations  and  quantities  are  then  printed  as  for  those 
where  ITST  «  1. 

If  ITST  Is  4,  change-ln-storaqe  is  printed  for  all  reservoir  locations 
(IRES  positive).  If  ITST  is  5,  end-of-perlod  storaqes  and  elevations  are 
printed  in  turn.  Operations  are  the  same  for  both  of  these  and  similar 
to  operations  described  above.  For  change-ln-storage,  totals  for  each 
calendar  month  are  printed,  whereas  averages  are  printed  In  the  cases  of 
storages  and  elevations. 

In  the  second  main  part  of  the  program,  operations  are  the  sane  as 
described  above  for  the  first  part,  except  as  noted  for  arrangement  and 
exceDt  that  headlnqs  need  not  be  repeated. 

12.  SUBROUTINE  3INTP  DESCRIPTION 

This  subroutine  is  called  from  subroutine  REARNO,  each  time  that  a 
rearranging  operation  Is  to  be  performed.  Its  purpose  is  to  retrieve 
information  from  tape  4  that  Is  needed  for  rearranging  Into  convenient 
summaries  at  the  end  of  a  simulation  study. 

Larqe  arrays  are  set  up  in  common  with  unrelated  variables  in  other 
segments  of  the  proqram  simply  as  a  convenient  means  of  managing  the 
rearranging  without  using  extra  memory  space  only  for  this  purpose.  It 
should  be  noted  that  one  array  (ARRAY)  overlaps  intentionally  into  two 
more  common  areas  that  are  reserved  for  this  purpose. 
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Variables  to  be  rearranged  (and  only  those  to  be  rearranged)  were 
written  on  tape  4  In  the  main  proqram.  For  this  reason,  the  number  of 
tape  records  to  be  skipped  in  order  to  arrive  at  the  information  to  be 
read  from  tape  4  must  be  calculated.  This  is  done  the  first  time  that 
8INTP  is  called  (when  ICND  =  0)  by  counting  the  number  of  variables  to 
be  rearranged  (10)  and  identifying  the  storage  sequence  number  of  each 
variable  to  be  retrieved  (IND(I)).  It  should  be  noted  that  Variable  8 
is  change-in-storaqe.  These  will  be  calculated  in  REARNG  from  end-of- 
period  storage  values  (Variable  7)  which  need  be  read  only  once.  Also, 
retrieval  of  Variable  10  data  is  accomplished  in  REARNG  without  calling 
BINTP. 

Values  of  IRG  are  first  searched  to  find  trie  first  variable  to  be 
rearranged.  As  soon  as  one  is  found,  its  value  of  IND(I)  is  set  to 
zero  to  signify  that  it  will  have  been  rearranged  when  the  next  search 
is  made.  Tape  4  is  then  rewound,  and  the  annual  and  monthly  information 
is  read  from  tape  on  year  at  a  time.  This  sequence  of  read  operations 
is  done  for  as  many  other  variables  as  there  are  to  be  rearranged.  In 
this  operation,  IDN  is  the  number  of  records  to  be  skipped  before  reading 
the  desired  information  each  year,  and  IDNN  is  the  number  to  be  skipped 
after  reading  the  information  that  year.  As  soon  as  data  for  all  years 
are  read,  ICND  is  set  to  1  to  signify  that  subsequent  calls  for  8INTP  are 
not  the  first  call,  and  a  return  to  REARNG  is  made. 

When  RINTP  is  called  after  the  first  time,  a  transfer  is  inmediately 
made  to  search  for  the  first  subscript  of  IND(I)  where  the  value  is 
positive,  which  signifies  the  next  variable  to  be  read  from  tape.  Then 
IDNN  is  set  to  the  number  of  variables  to  be  rearranged  later,  and  IDN 
is  computed  as  the  number  of  variables  already  rearranged.  If  variable 
is  being  rearranged,  IDN  is  reduced  by  1  when  both  variables  7  and  8  have 
been  rearranged,  because  they  use  the  same  tape  record  each  year.  The 
tape  is  then  rewound  and  for  each  year,  IDN  records  are  skipped,  a 
record  is  read,  and  IDNN  records  are  skipped.  In  the  case  of  reading 
variable  9  (elevation),  annual  totals  or  averages  are  not  used,  so  the  read 
format  is  different,  as  shown  in  the  listing. 
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PROGRAM  li  RAGE 


PROGRAM  USAGE 


13.  USE  OF  TAPES 

Input  and  output  are  controlled  by  read  and  write  statements  using 
logical  tapes  5  and  6  respectively.  Other  tapes  are  used  In  the  binary 
mode  as  scratch  tapes  only.  Tape  4  Is  used  In  subroutine  INOUT  as  a 
"reread"  unit.  Because  cards  may  be  omitted  for  default  values,  the 
order  of  the  data  may  vary.  Cards  are  read.  Identified  and  written  on 
tape  4.  Identification  Is  made  from  the  two-character  code  In  columns 
1  and  2  and  Is  used  as  a  means  of  determining  the  sequence  of  the  data 
as  It  Is  written  on  tape  4.  The  sequence  Is  then  used  to  read  from  the 
tape.  Tape  2  Is  used  for  saving  all  annually  changing  quantities, 
which  are  retrieved  in  the  main  program  as  needed.  Tape  4  Is  again  used 
with  tape  1  in  the  main  program  for  writing  output  Information  to  be 
rearranged.  Two  different  tapes  are  used,  because  the  type  of  rearranging 
Is  different  in  different  operations,  and  It  is  necessary  to  store  a 
year  of  data  at  a  time  on  tape  1  due  to  limiting  array  sizes.  They  are 
read  In  BINTP  and  REARNG.  Tape  3  Is  used  In  the  main  program  for  writing 
data  needed  In  the  computation  of  economic  benefits  In  subroutine  ECON. 

14.  CHANGES  OF  DIMENSIONS 

Changes  of  dimensions  of  variables  may  be  required  If  systems  are 
studied  that  are  larger  than  can  be  accommodated  by  the  programs  as 
written.  Also,  dimensions  may  be  reduced  to  minimize  the  use  of  core 
space  in  the  computer.  When  changes  are  made,  dimensions  of  all  variables 
having  a  common  dimension  and  the  dimension  limit  should  be  changed 
Identically. 

If  the  number  of  computation  Intervals  per  year  (KPER)  Is  changed, 
care  must  be  exercised  to  assure  that  input  specifies  the  changed  number 
of  days  In  each  computation  Interval.  While  monthly  intervals  are 
normally  used,  any  regular  or  Irregular  interval  can  be  used. 

In  changing  dimensions.  It  should  be  recognized  that  the  number  of 
reservoirs  or  the  number  of  diversions  cannot  exceed  the  number  of  control 
points,  and  that  the  number  of  power  plants  cannot  exceed  the  number  of 
reservoirs. 

It  is  good  practice  to  use  a  unique  dimension  for  each  set  of 
variables  so  that  future  changes  can  be  made  easily  and  so  that  mistakes 
are  reduced. 

Groups  of  variables  that  should  have  uniform  dimensions  are  tabulated 
below  along  with  the  corresponding  dimension  limit. 
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KCPT  (40):  ARRAY,  AVG,  CNTRL ,  CPT,  ICPT,  ICSE,  IDIV,  IDIVR,  It,  IEV, 
I0PER,“TPRN,  IPWR,  IRES,  IRESM,  ISHQ,  ISRCH,  ISYSR,  IUPQI,  IUPST,  NOIVR, 

NELW,  NRESR,  NSH2,  NSHMN,  NSHP,  NSHPS,  NSTOR,  NUPQI ,  NUPST,  Q2NDX,  QA,  QCONS , 
QDIVR,  QI,  QII,  QINDX,  QL,  QLKG,  QM2,  QMAXA,  OMIN,  QMIN2,  OMINA,  QMINS, 

QMX,  QOUT,  QOTMX,  QPREP,  SCNS,  SHMX,  SHMX2,  SHPMX,  SHRT2,  SHRTO,  SPSMX,  SQ, 
SQA,  SOI,  SQL,  SQMN,  SSH2,  SSHQ,  STORL,  SYCNS,  SYPRE,  SYQ,  SYQA,  SYQI, 

SYQL,  SYQMN,  SYSH2,  SYSHQ,  TMPP,  V,  VLEFT,  VMAX,  VU. 

KRES  (30):  AREA,  CEVAP,  EFCY,  EL,  ELEV,  EVP,  EVTMP ,  IRESM,  ISERV, 

ISHR,  NSERV,  PG,  QCAP,  QO,  QOMN,  QOMNA,  QOMNB,  QOTMN ,  SEVP,  STOR, 

STORI ,  STORA,  STORB,  STRAV,  SYEVP. 

KDIV  (25):  DINDX,  I DBAS,  IDIVR,  IDV,  ISHDV,  NDVSH,  QDIV,  QDIVA, 

QDIVS,  RTfOD,  SDIV,  SDV,  SDVA,  SHDMX,  SSHD,  SYDV,  SYDVA,  SYSHD. 

KPWR  (20):  CQOEL ,  HEAD,  IDPR,  IPOW,  IPR,  IPX,  IRESP.  OVLOD,  PFMAX, 

PGAU,  PKPWR,  POWR,  POWRP,  PWRMX,  QT,  SYSSP,  TL,  TLWEL ,  TWEL. 

KPWRS  (2):  IRESP,  NRESP,  NSRTP,  PG,  PWRS,  SYMSP. 

KPWR  +  KPWRS  (22):  PINDX,  POWER,  PWER,  SHRTP,  SPMX,  SPR,  SPUR,  SSHP, 

SSP,  SVPMX ,  SYPR,  sPywr,  SYSHP,  SYSP,  SYSYS. 

KPER  (12):  APERD,  APRD,  ARRAY,  BEN,  CNTRL,  CSTI ,  CSTO,  ELEV,  EVAPO, 

EVP,  ICSE,  IPER,  ISTOR,  NDAYS ,  NSTOR,  POWER,  POWR,  POWRP,  PWER,  PWRS,  0, 

QL,  QCONS,  ODIV,  QDIVA,  QDIVS,  QI,  QII,  QL,  QMIN,  QMIN2,  QMINA,  QMINS, 

QMX,  QPREP,  SHDIV ,  SHRT2,  SHRTP,  SHRTQ,  SM,  STORB,  STORL,  SYSSR,  TEMP, 

TMPR,  TMPX. 

KSERV  (19):  ISERV. 

KUPST  (18):  IUPST. 

KUPQI  (10):  IUPQI,  NUPQI. 

KL  (ft) ;  PG,  PGT,  QO,  QOT,  STORL. 

KQIL  (90):  MQ,  RTIO. 


Several  dimensions  are  fixed  in  the  program  and  can  be  chanoed,  but 
a  very  careful  check  must  be  made  to  assure  that  corresponding  chanqes  are 
made  at  all  pertinent  points  in  the  proqram. 

Of  particular  importance  when  any  changes  of  dimensions  are  made  is 
to  check  the  sizes  of  three  common  statements  labeled  DLTA  and  the  common 
statement  labeled  GAMMA  in  the  main  program  to  assure  that  space  needed  and 
the  dimensions  of  ARRAY  and  AVG  are  consistent  in  subroutines  BINTP,  OUTPT 
and  REARNG  with  dimension  space  In  the  main  program. 
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ARIABLES  TO 
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ENDFILE  4 
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(  USING  ARRAY  IBR 
READ  APPROPRIATE  \ 

CONTROL  POINT  SEQUENCE  I 
i  CARD  FROM  4 


USING  ARRAY  IBR  READ 
APPROPRIATE  J  CARDS 
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J1  CARD 


READ  CARD  INTO  A 
TEMPORARY  ARRAY  (I CRD) 
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l  ARRAY  I CRD 


STORE  THE  CARD  IDENTIFI¬ 
CATION  IN  AN  ARRAY  (IBR) 


READ  CARD  INTO  A 
TEMPORARY  ARRAY  (I CRD) 
TM  "A"  FORMAT 


WRITE  ON 
UNIT  4  THE 
ARRAY  ICRD 


STORE  THE  CARD  IDENTIFI¬ 
CATION  IN  AN  ARRAY  (IBR) 


READ  ANNUAL  DATA  AND 
ECONOMIC  DATA,  IF 
NECESSARY 
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ANNUAL  DATA  AND 
1  ECONOMIC  DATA 


ENDFILE 
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EXHIBIT  2 


VARIABLE  DEFINITIONS 


A(K) 

AL 

A«OS 

Andys 

A  N  YR 
ANYR3 
AP£RD(  I  ) 
APRDCI) 

AR£A(M,K) 

AREAV 

ARRAY 

ATmP 

AVE(I) 

AVG 

BEN(I, J) 

8LNK 

CACFT 

CCFS 

CEVAP(m) 

CFlOO 


CKW 

CFLOw 

CLOCL 


CN8T 

CNSTI 


CmSTO 

CNTRL ( I  *  m ) 

CONST 

CPT(H,K) 

CPWR 

CQOEKIP.K) 

CQS 

C3Q 

CSTKI) 

carom 

CT 

CTX 

DINDX(ID) 


ECVALCI,m#L) 

EFCY(m,K) 

EFFCY 

EFY(IP) 

EL(N,K) 

EL£V(I,m) 

EVAPO(I) 

E VP(  I ,  *0 
EVPC 

tVTMP(M) 


BENEFIT  FUNCTION!  NA-fc 

STORAGE  UEVFL  AT  Rt  3ERYO I RS  ABOVE  4  GIvFN  PPInt  4T  A  GIVEN 
TIME 

OEFAULT  NAMES  of  TlMfc  INTf  «VAL(FQuaTFD  TO  APRD) 

NUMBER  nF  DAYS  In  A  GIVEN  COMPUTATION  interval 
NUMBER  OF  YEARS  ROUTED  ALREADY,  EXCLUDING  CURRENT  YEAR 
NUMBER  of  YEARS  ROUTED  ALREADV  ,  INCLUDING  CURRFNT  VFAR 
NAME  OF  TlMf  INTERVAL  (FIRST  RaRT) 

NAME  OF  TIME  INTERVAL  (REMAINING  PART) 

TABLE  VALUE  OF  area  in  ACRES  FOR  RESERVOIR  m 
AVERAGE  RESERVOIR  AREA  IN  ACRES  DURING  P£ R I nD 
TEMPORARY  ARRAY  FOR  STORING  ITEMS  TO  RE  R? ARRANGED 
TEMPORARY  VARIABLE 

AVERAGE  QUANTITY  DURING  INTERVAL  I  FOR  PERIOD  OF  STI'Dv 
TEMPORARY  LOCATION  FGR  The  AVERAGE  OF  ITEMS  Tn  RE  ARRANGED 
BENEFIT  IN  DOLLARS  FOR  TIME  INTERVAL  I  and  function  J 
HOLLERITH  CODE  FOR  BLANKS 

COEFFICIENT  TO  CONVERT  FROM  ACRE-FEET  (Thousand  CUBIC  «ETFRS  FOR 
METRIC  SYSTEM)  TO  DESIRED  UNITS 

COEFFICIENT  TO  CONVERT  FROM  CFS  (C“3  FOR  “ETRic  3vSTF“)  TO 
DESIRED  UNITS 

COEFFICIENT  OF  BASIN  REFERENCE  EVAPORATION  (FvaPO)  FOR 
RESERVOIR  m 

COEFFICIENT  GREATER  T«An  1  BY  -mICh  LOCAl  INFt.n-  RELO 
RESERVOIRS  IS  MULTIPLIED  TO  PROVIDE  CONTINGENCY  ALLOWANCE  FOR 
FLOOD  CONTROL  RELEASE  DETERMINATION 

CONVERSION  CONSTANT  TO  CONVFRT  FLO-  T I MF S  hFad  TO  PO-FM/OAY  AT 
100  PERCENT  EFFICIENCY 

COEFFICIENT  to  AOJOST  YIELD  toward  optimum 

COEFFICIENT  LESS  Than  1  BY  which  LOCAL  INFLOw  RELOw  RFSFRvQIRS 
IS  MULTIPLIED  to  PROVIDE  CONTINGENCY  AuLOwANCE  FOR  CCnSFRVATIOn 
RELEASES 

constant  TU  CONVERT  AVERAGE  KILOWATTS  FOR  PERIOD  TO  THOUSAND 
KILOWATT  HOURS 

CONSTANT  which,  when  POSITIVE,  CONVERTS  INFLOW  RATE  UNITS  TO  CFS 
(CMS)  and,  WHEN  NEGATIVE,  CONVERTS  (without  NPGATIVF  SIGN)  INFLO 
VOLUME  UNITS  TO  ACRE-FEET  (THOUSAND  CUBIC  m^ERS) 

Constant  similar  to  CNSTI  PUT  applied  TP  ALl.  Flow  REQUIREMENTS 
level  OF  RESERVOIR  STORAGE  at  end  of  COMPUTATION  INTERVAL  I  AT 
LOCATION  M 

CONVERSION  CONSTANT  TO  CONVERT  FLOW  RATE  TO  vnLUMF  P£R  Day 
CONTROL  POINT  name  at  LOCATION  m 

CONSTANT  To  CONVERT  CFS-FEET  OR  cms-mftfrs  to  Thousand  kilowatt 
HOURS 

table  value  of  storage  or  outflow  as  index  of  pfak  power  caracit 

AT  PLANT  IF 

CONSTANT  to  convert  CFS  TO  ACRE-FEET  (CHS  TP  THHUSAND  CUBIC 
METERS)  FOR  INTERVAL 

CONSTANT  TO  CONVERT  ACRE-FEET  TO  CFS  (THOUSAND  CUBIC  m£TER8  Tn 
CMS)  FOR  INTERVAL 

CONSTANT  TO  CONVERT  INFLOWS  TO  CFS  (CMS)  FOR  JnTFRVAL  I 
CONSTANT  TO  CONVERT  WATER  REQUIREMENTS  TO  CFS  (CMS)  FOR  INTERVAL 
I 

CONSTANT  TO  CONVERT  RATE  FOB  INTERVAL  Tr  AVERAGF  ANNUAL  RATE  FOR 
same  VOLUME 

COEFFICIENT  TO  CONVERT  POWER  UNITS 

Shortage  Inoex  for  a  DIVERSION  id,  sum  of  squarfs  OF  annual 
shortages  for  i o o  years,  fach  shortage  being  expressed  as  a  rati 
OF  THE  annual  REQUIREMENT 

ECONOMIC  value  in  table  FOR  station  M,  interval  I  and  function  l 
table  VALUE  of  power  PLANT  EFFICIENCY  vs,  STORAGE  at  location  m 
POWER  PLANT  EFFICIENCY  ,  INCLUDING  TURBINF  msSFS,  FCR  ALL  PLANT 

Interpolated  value  of  power  plant  efficiency  at  ip 
Table  value  of  water  surface  elevation  for  reservoir  * 

RESERVOIR  waTER-SURFACE  ELEVATION  FOR  LOCATION  m  at  FND  OF  PERJP 

I 

EVAPORATION  IN  INCHES  (MM)  FOR  INTERVAL  I  USED  AS  RFFERFnCE  FHR 
ALL  RESERVOIRS 

EVAPORATION  IN  ACRE-FFET  (THOUSAND  CUBIC  METERS)  FOR  PERIOD  I  AN 
RESERVOIR  m 

EVAPO  EXPRESSED  IN  FEET  (M£TERS) 

EVAPORATION  IN  STORAGE  UNITS  AT  RESERVOIR  m 
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F  ACTR 
FL*U 

HEAOC IP) 
hvV*L ( I , m, l  ) 

I 

II 
12 
15 
I« 

15 

16 

17 

18 
IP 
110 
IB 

IBLK 

IBR 

IBRN 

ICO 

ICND 

ICONS 

I  CP  T  (  m  ) 

ICRD 

ICSECT,-) 


10 

IDBaSCIO) 

IDG3T 

ION 

1 0 1  v  C M ) 
IDIvr(m.k)  « 


IOPR(IP) 

IDT 

IOV(IO) 

I  0  V  PR 

I0VSP 

I F  C  J  *  M  ) 

IECON 
I E  V  f  m  ) 

IfVVR 

IPC 

IELOw 

IEmT(n) 

IKOOf 

IL3T 

I  NO  (  I  ) 

INUM 

IONE 

lOPER(IR) 

IP 

IpER ( I ) 

IPfRA 
IPNT 
I  PQ  «  <  »•  ) 


factor  by  which  storl  i ll  at  multiplied 

DEFAULT  NamP  Of  FLOw  UNITICFS) 

Hp  AO  In  FEET  ( MF  TE  RS )  ON  POWER  TURBINE  AT  IP 

HYDROLOGIC  value  In  TABLE  FOR  STA  m,  Interval  I  and  function  i_ 
index  FOR  cnHpUT  AT  I  On  INTERVAL 
I RG  ( 1 ) 

IRGI2) 

IRGC3I 

IRG(u) 

IRGI5) 

I  RG (6 ) 

IRGf 7) 

I RG ( 8  ) 

IRG(R) 

IRG(IO) 

TEMPORARY  indicator 

HOLLERITH  CODE  FOR  BLANKS 

ARRAY  FOR  STORING  SEQUENCE  OF  CAROS  REAO 

EQUATED  TO  IBR  TO  BE  USED  IN  A  'COMPUTED  GO  TO'  STATEMENT 
VARIABLE  U3F0  TO  READ  THE  CARD  IDENTIFICATION 

INDICATOR,  whEN  ZERO  THE  ITEM  BEING  REAO  OFF  THE  SCRATCH  FILE 
IS  The  FIRgT  ITFM  TO  BE  REARRANGEO 

positive  value  gives  priority  of  conservation  release  over  flood 
control  REQUIREMENTS 

CONTROL  POINT  number 

ARRAY  FOR  READING  CAROS  IN  ALPHAMERIC  FORMAT 

IDENTIFICATION  OF  CONTROLLING  ITEM  FOR  RELEASE  AT  RESF»VQIR  M 
DURING  PERIOD  I,  PORTION  OF  NuwgpR  BEFORE  LAST  2  DIGITS  IS 
CONTROLLING  LOCATION  number  and  LAST  2  DIGITS  ShOw  CONTROL  AS 
FOLLOWS*  1,  m I N I  Mg  M  FLOW  RtQulREMFNT  2,  POwER  REQUIREMENT 

5,  flood  control  release 

IDENTIFICATION  NUMBER  FOR  DIVERSION  {READ  ORDER  nIJMRER) 

STATION  USED  AS  BASE  FOR  return  FLOW  COMPUTATION 
INDICATOR,  POSITIVE  VALUE  CALLS  FOR  DIAGNOSTIC  PRINTOUT 
COUNTER  FOn  TAPE  READ  RECORDS 
SAME  AS  ID  Ff]R  DIVERSION  LOCATED  AT  POINT  m 

SAME  AS  10  FOR  DIVERSIONS  LOCATED  IN  THE  ARF  A  TRIBUTARY  ABOVE 
CONTROL  POINT  M  and  8EL0H  ALL  UPSTREAM  RESERVOIRS,  INCLUDING  ANY 
DIVERSION  a 7  M  That  TAKES  OUT  DIRECTLY  FROM  The  RFSERVQIR 
(IF  ANY),  bypassing  The  POwER  PLANTCIF  any) 

IDENTIFICATION  number  OF  downstream  reservoirs  that  controls 
tail*ater  elevation  at  ip 

the  last  TWO  digits  OF  the  YEAR  on  CAROS  In-YQ 
control  POINT  LOCATION  NU-BFR  FCR  DIVERSION  ID 
INDICATOR,  when  NEGATIVE  PRFVENTS  BUFFER  9  Tns  *  QE  USE  FOR 
DIVERSIONS 

INDICATOR,  POSITIVE  VALUE  CAUSES  FLO*  IN  EXCESS  OF  CHANNEL 
CAPACITY  To  ENTER  DIVERSION 

INDICATOR  WHEN  POSITIVE  CALLS  FOR  Economic  evaluation  FOR 
FUNCTION  J  at  station  M 

indicator,  positive  value  calls  for  economics  computation 
indicator,  POSITIVE  value  CALLS  EOr  READING  DIFFERENT  EVAPOPATIO 
pattern  For  RESERVOIR  m 

INDICATOR,  POSITIVE  value  CALLS  FOR  READING  DIFFERENT  EVAPORATIO 

pattern  each  tear 

INDICATOR  when  POSITIVE  That  OPERATION  IS  FOR  FLOOD  CONTROL 

control  point  number  for  yield  optimization 
Format  cooing  specified  In  SUBROUTINE  REARnG 

ARRAY  containing  IDENTIFICATION  CODfS  for  ALL  CARDS  that  could 
BE  read  in  The  CONTROL  POINT  LOOP 

INDICATOR  which  determines  the  last  CARD  WHERE  Two  OR  more  cards 
are  REQUIRED  to  COMPLETE  READING  *N  ITE“ 

INOICATOR  FOR  VARIABLES  TO  BE  REARRANGED 
ALPHAMERIC  CODE  FOR  NUMBERS  1  TO  B 
VARIA8LC  FORMAT  USED  In  REARRANGING  OUTPUT 

INDICATOR  when  NEGATIVE  ThaT  reservoir  IR  IS  not  OPERATING 

srecieicallt  for  the  particular  control  point 

IDENTIFICATION  number  FOR  POwfR  PLANT  (READ  ORDER  NUMBER) 

identification  number  of  interval  i 

IDENTIFICATION  NUMBER  Of  FIRST  INTERVAL  OF  YEAR 

positive  value  causes  printout 

indicator,  POSITIVE  value  CALLS  for  peaking  capacity  as  a 
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IPR(IP) 

IP«L 

1PRN(M) 

I  PPM 
I  PwK  w 

JPhPR 

IPwR(M) 

IP»VR 

IPX(H) 

IP 

IP* 

I  RE  3 ( “  ) 
IPESM(«# 


IP£SP(K) 
I R  G  ( 1  ) 
IPG (2 ) 
I«GC5) 
IPG(p) 

I PG ( 5 ) 

I PG ( 6 ) 
IPGf  7) 

I  PG  ( 8  ) 

IOGtP) 

IRG(IO) 

I  PP  T 

ISERVC-, 
I  3RD  V ( K ) 
IShG(K) 
I3hP(K) 

I  Smry 

I3Pf« 

ISRCh(-) 

ISTHPf  I  ) 

I3X3«(“) 

IT 

I  Tf-P 
ITMP 
ITP 
I  T  P  A 

ITRN3 

I T3PV  (K  ) 

ITST 
I  TwO 
I  UM  T 
I  UPO  T 

IUPQI 

lUPST ( “ , 


IX 

1^ 

IvEAP 

I  vp 
IVPl 
I  V  R  A 

I  Z  f  B  0 


*  5 


«) 


K) 
K  ) 


FUNCTION  OF  OUTFLOW  (PuN»OF. RIVER  PLANT)  AT  M 
CONTROL  POINT  LOCATION  NUMBER  FOP  POwFR  Plant  ip 
INDICATOR,  POSITIVE  VALUE  CALLS  FTP  PRATING  STTRAGF  LEVELS 
RESERVOIR  OPEPaTION  DATA  Each  YEAR 

INDICATOP,  negative  value  SUPPRESSES  PRINTOUT  E 0 R  location 
INDICATOR,  NEGATIVE  VALUE  SUPPPESSES  PRINTOUT  FOR  f*C*  year 

Indicator*  positive  value  causes  power  to  he  cc“Pjtfc  in  *« 

INSTEAD  OF  ThOuSAnO  <ah 

INDICATOR,  negative  value  prevents  POWER  ^  F  w  a  n  d  e  RO“  DRa-Tn 
BUFFER  STORAGE 

VALUE  OF  IP  FOR  PLANT  LOCATED  AT  POINT  * 

INDICATOR,  POSITIVE  VALUE  CALLS  FOR  DIFFERENT  pt.fb  rA 

YEAR 

POSITIVE  VALUE  INDICATES  THAT  RESERVOIR  m  RFlFASE  IS  C0NTa'.', 
BY  SYSTEM  POWER  RFGUIRE“ENT 

RESfRVOIR  INDEX  NUMBER,  RESERVOIR  3FGUENCF  nj-res  oSFD  f.o 
OUT 

SIMILAR  TO  IR 

RESfRVOIR  IDENTIFICATION  Number,  F  q  u  a  i  TO  v  (EVERY  R  f  S  E  R  v  '■  J 
MUST  BE  NUMBERED  SA-E  AS  Control  ROTnT  at  ivs  location) 
RESERVOIR  IDENTIFICATION  nu“BE«  FOB  ALL  RESERVOIRS  |.PST0EA- 
LOCATION  m,  INCLUDING  RESERVOIR  aT  “,  JF  anv,  wJTh  negative 
SIGN  FOR  RESERVOIRS  NOT  OPERATED  SPECIFICallv  fps  eON»wr’uS 
CONTROL  POINT  Nl M B E R  OF  PO„ER  RESFRVOIR  In  SYSTF- 
INDICATOr,  WHEN  POSITIVE,  TO  PEARRANGF  1  noegji,  ated  p l r *> 3 
WHEN  POSITIVE,  TO  REARRANGE  RIVER  p l r w S 
when  POSITIVE*  TO  R£ARRANGF  DIVERSIONS 
when  POSITIVE*  TO  REARRANGE  DIVERSION  SmOR’aGES 
when  POSITIVE,  TO  REaRBanGF  DESIRED  Pl"'*  S  “ r'  R  T  a  G 
when  POSITIVE,  TC  REARRANGE  “InJvijv  Pl”w  Short  aG 
when  POSITIVE,  TO  REARRANGE  END  pf  p  F  R I  j  STORaG 
wh£n  POSITIVE,  To  REARRAN&F  change  IN  STORAGE  *t 


•  ITh 


N 


ll': 

r  u  *  n  y 


A  T 


Indicator 

indicator 

indicator 

indicator 

indicator 

INDICATOR 

Indicator 

of  PERIOD 
INDICATOR 
indicator 
INDICATOR 


E  S 
p  S 
P  5 
£n; 

I'-NS 


WHEN  POSITIVE,  TO  REARRANGE  F ND»r F .pf R I QD  Fu^vat 
when  POSITIVE,  TC  REARRANGE  RE  SF  b  vd i R  dat» 
where  POSITIVE,  CALLS  FO°  Repeating  r n e  stowage 
FOR  ALL  LFVFLS 

LOCATION  NUMBER  SERVED  «Y  RESERVOIR  m 
DIVERSION  NUMBER  wHfpf  SHORTAGE  IS  DECLARF!) 
location  number  where  shortage  is  declarer 
RF3ERVUIW  NUMBER  USED  FOR  ShORTaGF  DECLARATION 
INDICATOR  CALLING  FOR  SU“maRv  Cn-PRATIPN? 

IDENTIFICATION  NjjMBfP  OF  FIRST  shortage  interval 
INDICATOR,  WHEN  POSITIVE  ,  ALLO*S  SPILLWAY  SuRO-ACGE 
STORAGE  AT  END  OF  INTERVAL  I,  CONVERTED  TO  INTEGER  FOR  dRIn 
POWER  3 v  3  Te  m  IDENTIFICATION 

COUNTER  TO  COUNT  TJTLE  CARDS  OF  ECLLC»ING  JOBS 

temporary  integer  variable 
temporary  integer  variable 
temporary  integer  VARIABLE 
temporary  integer  variable 

transfer  indicator  (positive  valjf  ca  »sps  snip  rfad  and 

UNNECESSARY  REPETITIONS) 

IDENTIFICATION  NU-BER  UF  DC»NSTREA“  location  rno  which  Rf-  s e 
DOES  NOT  PROVIDE  SPECIAL  RELEASES 

INDICATOR  SPECIFIED  in  subroutine  PEABNG  to  chnto^l  °°!nt  O.t 
VARIABLE  Eormat  USED  In  REARRANGING  Output 
INDICATOR,  IF  POSITIVE,  CUTPuT  UNITS  ARE  n  OjN  S  t  a  n  d  a  u  - 
INDICATOR,  positive  value  calls  egr  continuing  oppsattcn  it  ~y 
WITH  NEW  3 Y  S  TF  M  DATA  AFTfcfl  NYRS 

IDENTIFICATION  number  or  CONTROL  point  I  PSTBtA-  ;p  H  T-AT  :s  not 
at  or  above  A  RFSERvOIR  OR  another  control  POINT  PSTOFA-  rf  v 
IDENTIFICATION  NU“BF  R  of  RESERVOIRS  I““FDTATfLy  ,ps!SU“  f 
CONTROL  POINT  h  (All  RESERVOIRS  That  reiEaSE  »atE0  t r  “  ,Hjr» 

does  not  pass  through  intermediate  reservoirs) 

INTERVAL  number 

TEmPO»ARY  INDFX 

FIRST  YEAR  OF  OPERATION  SToDv 


’  “E  R 

1  V-JB 


year  number 

FIRST  YFAR  of  OPERATION  3TuDY 
YEAR  NUMBF  R 

VARIABLE  format  USED  Tn  RFaRRanGI'G  O' '  T  °u  y 


-  3 


f. 


J 

jbrn 


JFMT 
J  J ,  JK 

JL 

JONE 

JPRNT 

JTMP 

JTWO 

JUPQI 


JZERO 

K 


KA 

KCPT 

KOAY 

KDIV 

KDT 

KFMT 

KJ 

KL 

KOOF 

KONE 

kper 

KPWR 

KPwPS 

KQIL 

KRFS 


K3ERV 

ktwo 

KUPQJ 


KUP3T 

KX 

KZERO 

L 

L* 

lcns 

LMT 

L3V 

LTRC 

LTRJ 

LX 

M 

HQIV 

mDnST 

mFTRC 

MP3Y3 

HPwR 

MQ  ( M ) 
MRE3 

mTh 

MX 

N 

NC 


Index  for  year 

INDICATES  WHETHER  ONE  OR  ALL  OF  THE  J5  ThROUCH  J7  CARDS  HAVE 
BEEN  READ 

FORhaT  COOING  specified  IN  SUBROUTINE  REARnG 

TEMPORARY  VARIABLES  USED  TO  ARRANGE  MONTHS  AND  NyMBFR  OF  DAYS 
ACCOROING  TO  IPERA 
NUMBER  OF  pl  CARDS  READ 

VARIABLE  format  USED  IN  REARRANGING  OUTPUT 

print  control  indicator,  negative  value  suppresses  printout 

temporary  variable 

variable  format  used  in  rearranging  output 
indicator,  if  positive  calls  FOR  SPFCIFYING  LOCAL  INFLOWS  AS 
INTERMEDIATE  INFLOWS  BETWEEN  CONTROL  points,  if  zero  or  NEGATIV 
,  LOCAL  INFLOWS  ARE  FOR  AREAS  BELOW  UPSTREAM  RESERVOIRS 

variable  format  used  in  rearranging  output 

INDEX  FOR  TABLE  VALUES,  CONTROL  POINT  SEQUENCE  NUMBER  USED  FOR 
PRINT  OUT 
temporary  index 

LARGEST  ACCEPTABLE  (DIMENSION)  NUMBER  OF  CONTROL  POINTS,  ALL  OF 
WHICH  MUST  BE  NUMBERED  8V  INTEGERS  KCPT  OR  SMALLER 
ARRAY  CONTAINING  DEFAULT  VALUES  FOR  NUMBER  OF  DAYS  IN  A  PFRTOD 
DIMENSION  LIMIT  OF  DIVERSIONS 

CONTAINS  ThF  VALUE  OF  IDT  PRIOR  TO  ITS  LAST  CHANGE 
FORMAT  CODING  SPECIFIED  IN  SUBROUTINE  REARNG 
TEMPORARY  index 

DIMFNSION  LIMIT  OF  STORAGE  LEVELS 

IDENTIFICATION  CODES  FOR  CARDS  THAT  COULD  BE  READ  IN  THE  YEAR 
LOOP 

VARIABLE  FORMAT  USED  in  rearranging  output 
DIMENSION  LIMIT  OF  PERIODS  PER  TEAR 
DIMENSION  LIMIT  OF  POWER  PLANTS 
LIMIT  OF  NjjMgg p  OF  POWER  SYSTEMS 

DIMFNSION  LIMIT  TOTAL  NUMBER  OF  STATION  REFERENCES  FOR  COMPUTING 
LOCAL  INFLOWS 

LARGEST  ACCEPTABLE  (DIMENSION)  NUMBFR  OF  RESFRVOJRS,  ALL  OF 
which  must  BE  numbered  0Y  INTEGERS  KRFS  and  SMALLER  and  BE 
IDENTICAL  TO  CONTROL  POINT  IDENTIFICATION  NUMBER  FOR  THF  Same 
LOCATION 

DIMENSION  lTmIT  OF  LOCATIONS  SERVED  BY  ANY  ONE  RESERVOIR 
VARIABLE  FORMAT  USED  in  REARRANGING  output 
DIMENSION  LIMIT  OF  NON-RESERVOIR  CONTROL  POINTS  DIRECTLY 
UPSTREAM  (WITHOUT  INTERMEDIATE  CONTROL  POINTS)  OF  ANY  CONTROL 
POINT 

dimension  limit  for  number  of  reservoirs  (nupst)  directly 

UPSTREAM  OF  ANY  CONTROL  POINT 
TEMPORARY  INDPX 

VARIABLF  format  USED  IN  REARRANGING  OUTPUT 

INDEX  FOR  RESERVOIR  LEVELS  USED  E OR  COORDINATING  RELEASES 

TEMPORARY  INOFX 

MAXIMUM  STORAGE  LEVEL  w«fcRE  CONSERVATION  DEMANDS  ARF  GIVEN 
PRIORITY  OVER  FLOOD  CONTROL 

DIMENSION  LIMIT  USED  IN  THE  aRGUmfnT  OE  SUBROUTINE  BINTP 
INDICATES  aT  whaT  LEVEL  AN  RL  CARD  wAS  OMITTED 
ALPHAMERIC  CODE  FOR  THE  LETTER  C 

alphameric  code  for  the  letter  j 

TEMPORARY  INQEX 

CONTROL  POINT  IDENTIFICATION  NUMBER 

INDICATOR,  when  POSITIVE  INDICATES  That  A  DIVERSION  EXISTS  AT  TH 
CONTROL  POINT 

next  downstream  control  point 

PnSiTIVE  VALUF  CALLS  for  METRIC  UNITS 
NUMREP  of  power  SYSTEMS  That  The  RLanT  IS  IN 

INDICATOR,  when  POSITIVE  INDICATES  ThaT  A  POWER  PLANT  EXISTS  AT 
THIS  LOCATION 

IDENTIFICATION  NUMBER  of  INPUT  FLOW  LOCATION 

Indicator,  when  positive  indicates  that  a  rfsfrvoir  exists  at 

this  location 

MONTH  CF  BENEFIT  function 

CONTROL  POINT  INDEX 

TEMPORARY  VARIABLE 

index  equal  to  zero  during  first  approximation  and  one  during 
final  COMPUTATION  for  EACH  INTERVAL 


•  U. 


EXHIBIT  z 


NCPT 

NCYCL 

ND A Y  3 { I ) 
NO  I  V 

NOJVR(M) 


NOVSh(ID) 

ndvyr 

NE 

NEA 

NEW 

NFL 

NELOW 

NFL*(M) 

nfmt 

NL 

NLE 

NLYR 

nper 

NPWR 

NPwRS 

NQYR 

NR 

NflES 

NRE3M 

NRESP(IX) 

NRESR(m) 

NSERV(m) 

nSHDV 

nShmn(m) 

n8hP(m) 

N3HPS (IX) 
NSNQ 
N3HR 
NSH2(M) 

N3PCR 

NSRTP(IX) 

N3TQR(I,M,k) 

NTAB 

NTSRV 

NUPQI(M) 

nupst(m) 


NX 

NYRI 

OVUOD(IR) 


PEMAX(IX) 
PC(M,U,IX) 
PC AU  C X  ) 
PGAUT 
POT (L ) 

PINOX(IP) 


PKPWRf IP»K  ) 
POWER ( I  *  IP ) 

powr<i,:p) 

POwRP ( I, IP? 

POwRT 

PUNIT 


NUMBER  OE  CONTROL  POINTS  U3ED  IN  SYSTEM 
NUMBER  OF  COMPUTATION  CYCLES  REQUlRFD 
NUMBER  OF  DAYS  IN  INTERVAL  I 
NUMBER  OF  diversions  IN  system 

NUMBER  OF  DIVERSIONS  LOCATED  IN  The  area  TRIBUTARY  above  CONTROL 
POINT  M  and  below  ALL  UPSTREAM  RESERVOIRS,  INCLUDING  ANY 
DIVERSION  at  m  that  IS  CONSIDERED  TO  BE  TAKEN  DIRECTLY  ERnn  the 
RESERVOlRflF  A  n  Y  ) ,  BYPASSING  POWER  PLANT(IF  any? 

total  number  of  monthly  shortages  at  diversion  id 

number  OF  DIVERSIONS  FOR  which  REQUIREMENTS  are  to  RE  SPECIFIED 

ANNUALLY 

NUMBER  OF  BENEFIT  FUNCTIONS 
NUMBER  of  BENEFIT  FUNCTIONS 
INDICATOR  FOR  STARTING  ANOTHER  JOB 
NUMBER  OF  LOWEST  FlOOD  CONTROL  LEVEL 
TOTAL  NUMBER  OF  INPUT  INFLOW  LOCATIONS 

NUMBER  OF  INFLOW  LOCATIONS  USED  TO  COmPUTF  LOCAL  INFLOW  AT  m 
VARIABLE  FORMAT  USED  IN  REARRANGING  OUTPUT 

NUMBER  of  reservoir  storage  levels 

number  of  FLOOD  CONTROL  LEVELS  (normally  2,  AT  LEAST  2) 

NUMBER  of  LEVELS  at  OIFFEPENT  RESERVOIRS  that  are  to  be 

SPECIFIED  ANNUALLY 

NUMBER  of  PERIODS  PER  YEAR 

TOTAL  number  OF  power  PLANTS  IN  SYSTEM 

NUMBER  OF  POwER  systems 

NUM8ER  OF  LOCATIONS  FOR  WHICH  FLOW  REQUIRFMFNT3  ARE  TO  BE 

SPECIFIED  EACH  YEAR 

TEMPORARY  VALUE  OF  NUPST 

TOTAL  NUMBER  OF  RESERVOIRS  IN  system 

NUMBER  OP  RESERVOIRS  AT  AND  UPSTREAM  OF  A  CnNTROL  POINT 

NUMBER  OF  RESERVOIRS  IN  POWER  SYSTEM 

NUMBER  OF  RESERVOIRS  AT  AND  UPSTRFAM  OF  LOCATION  M 

NUMBER  OP  LOCATIONS  SERVED  BY  RESERVOIR  m 

NUMBER  OF  DIVERSIONS  WHERF  SHORTAGES  CAN  RE  DFCLARED 

number  of  desireo-flp“  shortages  at  location  m 
NUMBER  of  POWER  PLANT  SHORTAGES  at  LOCATION  M 
NUMBER  of  POWER  SHORTAGES  IN  SYSTEM  lx 

NUMBER  OF  CONTROL  POINTS  WHERE  SHORTAGES  CAN  RE  DECLARED 
NUMBER  OF  RESERVOIRS  USED  IN  SHORTAGE  DECLARATION 

number  of  minimum  flow  shortages  at  location  m 
number  of  PERIODS  OF  DECLARED  SHORTAGE 
NUMBER  OF  POWER  SHORTAGES  FOR  SYSTEM  IX 

NUMBER  OF  TIMES  STORAGE  IS  IN  RANGE  K  AT  LOCATION  m  DURING 
INTERVAL  I 

NUMBER  OF  TABULATED  ITEMS  IN  RESERVOIR  TAHLF3 

NUMBER  OF  downstream  locations  FOR  which  RESERVOIR  DCFS  NOT 

PROVIDE  SPECIAL  RELEASES 

number  OF  CONTROL  POINTS  UPSTREAM  OF  “  AND  NOT  AT  OR  ABOVE  A 
RESERVOIR  OR  ANOTHER  CONTROL  point  UPSTREAM  OF  M 
NUMBER  OF  RESERVOIRS  IMMEDIATELY  UPSTREAM  OF  CONTROL  POINT  m 
(ALL  RESERVOIRS  THAT  RELEASE  WATER  TO  m  which  DOES  NOT  PASS 
through  intermediate  reservoirs),  excluding  any  reservoir  at  m 

TEMPORARY  SUBSCRIPT 
NUMBER  OE  YEARS  OF  ROUTING 

COEFFICIENT  (GREATER  Than  1)  OF  POWER  PLANT  IP  NAME-PLATE 
CAPACITY  REPRESENTING  maximum  PLANT  capability  under  OVERLOAD 
CONDITIONS 

MAXIMUM  POWER  FACTOR  FOR  SYSTEM  IX 

POWER  GENERATED  AT  LOCATION  M  FOR  SYSTEM  IX  TO  REACH  LEVEL  L 
POWER  GENERATED  AND  USABLE  AT  LOCATION  K 
TOTAL  POWER  GENERATED  AND  USABLE 

TOTAL  POWER  GENERATED  TO  REACH  LEVEL  L  AT  ALL  RESERVOIRS  IN 
SYSTEM 

SUM  OF  SQUARES  OF  ANNUAL  POwER  SHORTAGES  AT  IP  FOR  100-  YEAR 
PERIOD,  EACH  SHORTAGE  EXPRESSED  AS  RATIO  OF  RFQUIRED  POWER  FOR 
YEAR 

peak  PowfcR  in  table  for  ip 

POWER  in  THOUSANO  kwh  GENERATED  at  PLANT  ip  during  interval  I 
power  Requirement  in  thousand  kwh  at  plan'  ip  during  interval  i 
PEAK  POWER  CAPACITY  AT  PLANT  IP  DURING  INTERVAL  I 
total  POWER  requirement 

NAME  OE  POWER  UNITS  (KILOWATTS  OR  THOUSAND  KWH) 


•  s- 


EXHIBIT  ? 


P w E B < I ,  IP)  a  ADJUSTED  PqwfB  REQUIREMENT  *T  PLANT  IP  DURING  INTERVAL  I 
PWERT  •  TOTAL  REQUIRED  POWER 

PwRMXCIP)  .  NAME.PLATE  GENERATING  CAPACITY  in  KILOWATTS  AT  plant  ip 
PWR3 ( I » IX)  •  SYSTEM  IX  POWER  REQUIREMENT  DURING  INTERVAL  I 
Q  ( I )  •  FLOW  IN  BENEFITS  TABLE 

QA(IfM)  •  ACTUAL  AVERAGE  FLOW  in  CF3  (CMS)  at  point  M  DURING  INTERVAL  I. 
EXCLUDING  any  DIVERSION  at  m 

QASUM  -  sum  OF  RELEASES  in  CPS  CCMa)  AT  all  RFSFRVCJIRS  IMMEDIATFLY 

upstream  of  m  (THOSE  makInG  RELEASES  TO  M  WHICH  DO  NOT  PASS 
through  intermediate  reservoirs),  excluding  release  at  m 

QAX  •  TOTAL  RELEASE  at  RESERVOIRS  IMMEDIATELY  UPSTREAM 

QCAP(M,K)  •  TABLE  VALUE  of  OUTLET  capacity  for  RESERVOIR  m 
QCONS(I.M)  •  CONSERVATION  RELEASE  at  M  during  INTERVAL  I 

QCX  •  TOTAL  CONSERVATION  RELEASE  AT  RESERVOIRS  IMMEDIATELY  UPSTREAM 

QDIV(I, ID)  •  REQUIRED  DIVERSION  In  CFS  (CMS)  AT  ID  DURING  INTERVAL  I 
QDIVACI.IO)  •  ACTUAL  DIVERSION  IN  CFS  (CMS)  AT  ID  DURING  INTERVAL  I 
QDIVR(M)  •  TOTAL  DIVERSION  IN  CFS  (CMS)  DURING  A  GIVEN  INTERVAL  IN  AREA 
TRIBUTARY  ABOVE  m  anO  BELOw  ALL  UPSTREAM  RESERVOIRS  INCLUDING 
ANY  DIVERSION  AT  m 

GDI  VS (I, ID)  a  DIVERSION  REQUIREMENT  AT  ID  DURING  INTERVAL  I  AS  MODIFIED  BV  ANY 

dfclareo  shortage 

QOV  •  REQUIRED  DIVERSION  IN  CFS(CMS)  AT  GIVEN  LOCATION 

QI(I,H)  a  INFLOW  IN  CFS  (CMS)  TO  m  DURING  INTERVAL  I 

QII(I,M)  -  INPUT  INFLOW  FOR  PERIOD  I  AT  STATION  M  (NOT  NECESSARILY  CONTROL 
POINT  M) 

QInDX(m)  «  SUM  OF  SQUARES  FOR  IQOaYEAR  PERIOD  OF  ANNUAL  SHORTAGES  IN 

minimum  0E3IRE0  FLOW  AT  M,  EACH  SHORTAGE  EXPRESSED  AS  A  RATIO 
TO  TOTAL  ANNUAL  DESIRED  FLO- 

QL(I,M)  •  LOCAL  INFLOW  TO  M  FROM  AREA  TRIBUTARY  BFLOw  ALL  UPSTREAM 

RESERVOIRS  DURING  INTERVAL  I 
QLKG(M)  •  LEAKAGE  AT  RESERVOIR  m  (CFS  OR  CMS) 

QMAXA(M)  •  OUTLET  CAPACITY  IN  CFS  (CMS)  AT  RESERVOIR  m 

QM I N  ( I ,  M )  a  minimum  0E3IRED  FLOW  aT  m  DURING  INTERVAL  I 

QMINA ( I  *  m )  a  MINIMUM  OESIRCO  FLOW  IN  CFS(CMS)  AT  LOCATION  m  DURING  INTERVAL  I 

QMIN8(I,M)  a  minimum  OEsTRED  FLOW  AT  M  DURING  INTEPVAL  I  AS  MODIFIED  BV  ANY 

DECLARED  SHORTAGE 

QMIN2(I,M)  a  MINIMUM  REQUIRED  FLOW  AT  LOCATION  m  DURING  INTERVAL  I,  SHORTAGES 
OCCUR  ONLY  WHEN  ALL  ACTIVE  STORAGE  IS  DEPLETED 
QMN  a  MINIMUM  OESIRCO  FLOW  at  given  LOCATION 

QMX(I.M)  a  maximum  PERMISSIBLE  flow  at  M  FOR  INTERVAL  I 

QMXX  a  MAXIMUM  PERMISSIBLE  flow  (NEGATIVE  VALUE  CALLS  FOR  SPFCIFVING 

MAXIMUM  FLOW  BY  MONTH) 

QM2 ( M )  a  MINIMUM  REQUIRED  FLOW  AT  M 

QO(M,L)  a  RELEASE  IN  CFS  (CHS)  REQUIRED  AT  RESERVOIR  M  TO  REACH  LEVEL  L  IF 

NO  RELEASES  ARE  maOE  UPSTREAM 

QOMN(M)  •  MINIMUM  RElFASE  In  CFS  (CMS)  AT  m,  EXCLUDING  RELEASES  AT 

upstream  reservoirs,  consistent  with  conservation  rflfase 
DETERMINATIONS  at  all  reservoirs 

QOMNA(M)  a  minimum  PERMISSIBLE  LIMIT  OF  QOmn(m) 

QOMNB(M)  a  MAXIMUM  PERMISSIBLE  LIMIT  OF  QOmn(m) 

QOT(M,L)  •  SUM  OE  QO  VALUES  IN  A  GIVEN  INTERVAL  FOR  ALL  RESERVOIRS  AT  OR 
ABOVE  M  CORRESPONDING  TO  LEVEL  L 
QOTMN(m)  a  MINIMUM  PERMISSIBLE  total  FLOW  AT  m 

QOTMX(M)  a  maximum  PERMISSIBLE  TOTAL  FLOW  AT  m 

QPREP ( I , M )  -  UNREGULATED  FLOW  IN  CFS  (C*3)  AT  m  DURING  INTeRVAL  I,  CONSIDERED 

AS  PREPROJECT  FLOW 

QT ( I P, K )  a  FLOW  IN  TAILWATER  TABLE  FOR  PLANT  IP 
QUNIT  a  NAME  OF  FLOW  UNITS 

Q2NDX(M)  a  SUM  OF  SQUARES  FOR  100-YEAR  PfRIOD  OF  ANNUAL  SHORTAGES  IN 

MINIMUM  REQUIRED  FLOW  aT  m,  EACH  SHORTAGE  EXPRESSED  AS  A  RATIO 

TO  TOTAL  annual  required  flow 
RNYR3  •  reciprocal  OF  anyrs 

R3HDV  a  RATIO  BY  WHICH  STORAGE  DEFICIENCY  MUST  BE  MULTIPLIED  TO  OBTAIN 

DIVERSION  SHORTAGE  declaration 

RSHQ  a  Ratio  by  which  STORAGE  DEFICIENCY  must  be  MULTIPLIED  to  OBTAIN 

flow  shortage  declaration 

RTIO(K)  a  Ratio  BY  which  INFLOW  (QII)  at  MQ(K)  must  be  MULTIPLIED  to 
OBTAIN  LOCAL  INFLOW  component 

RTIOO(ID)  a  RATIO  BY  Which  DIVERSION  «UST  BE  MULTIPLIED  TO  OBTAIN  RETURN 
FLO-  AT  ID 

SCNS(M)  a  total  CONSERVATION  flow  for  year  at  LOCATION  m 

So V( ID )  -  AVERAGE  annual  REQUIRED  DIVERSION  in  CFS  (CMS)  AT  id 


EXHIBIT  2 


m  6« 


SDVA(ID) 

3EVP(M) 

3H0 I  V ( I , ID ) 
8H0mX  ( 10 ) 
SHmx(m) 
3hmX2(m) 
SHORT  4 

8HPMX  ft 

SHRTA  * 

SHRTPC.IP) 

SHR?Q( i  »  m) 

8HRT2 ( I #  H ) 

3M(J) 

3PMXCIP) 

8PRCIPJ 

3PRE(M) 

SR$mx(m) 

SPWR(IP) 

3Q(M) 

SQa(m) 

SOI (m) 

SQL  CM) 
3QMN(M) 

8RPI.S 

83HD( ID) 

88hP (IP) 

SSHQ(M) 

38H2(M) 

38P( IP) 
3TCJR(M»K) 
3T0R1 (Mi 
STORA(M) 

STORB(IiM) 

3T0RL(I#m.L) 

3TR A  V ( M I 

3TR3H 

SUM 

SUMA 

3YCN3CM) 

3Y0V(I0) 

3YQV A ( ID ) 

3  yd  Y3 

SYEVP(M) 

3YMSP(IX) 
3YRMX (IP) 
3YPR(IP) 
8yPRE(m) 
SYPwR(IP) 

3 YO (m ) 
SYQA(m) 

3Y0I (M) 
3YQLCM) 
$YQMN(M) 

3Y3W0 ( 10 ) 

3Y3MP(IP) 

3Y3hQ(m) 

3y3m2 (M ) 

SVSP(IP) 

3Y33P(IP) 

3Y3Y3(IP) 

T  A  VP 


AVERAGE  ANNUAL  ACTUAL  DIVERSION  in  CPS  (CMS)  AT  ID 

AVERAGE  ANNUAL  EVAPORATION  IN  ACRE-FEET  (THOUSAND  CUBIC  MfTERS) 

AT  M 

shortage  in  cfs  (cms)  during  interval  i  at  id 

MAXIMUM  monthly  DIVERSION  SHORTAGE  (CFS  OR  CMS)  AT  ID 
MAXIMUM  SHORTAGE  OF  DESIRED  FLO*  AT  m 

maximum  shortage  of  required  plow  at  m 

AMOUNT  OF  SHORTAGE  IN  FIRM  YIELD  (USED  TO  OPTIMIZE  YIELD) 

MAXIMUM  POWER  SHORTAGE  DURING  TH|  RUN 

ACCUMULATED  SHORTAGE  IN  DESIRED  FLOW  (FOR  OPTIMIZING  YIELD) 
SHORTAGE  IN  KWH  DURING  INTERVAL  I  AT  IP 

SHORTAGE  IN  CFS  (CMS)  OF  DESIRED  FLOW  DURING  INTERVAL  I  AT  M 

shortage  in  cfs  (cms)  of  required  flow  during  interval  i  at  m 

sum  OF  BENEFITS  FOR  FUNCTION  J 

PEAK  POWER  FOR  PERIOD  OF  RECORD  AT  IP 

AVERAGE  annual  POWER  REQUIREMENT  in  Thousand  Kwh  AT  ip 

AVERAGE  ANNUAL  PREPROJECT  FLOW  IN  CFS  (CMS)  AT  « 

MAXIMUM  POWER  SHORTAGE  AT  M 

AVERAGE  ANNUAL  POWER  GENERATION  In  THOUSAND  Kwh  AT  IP 
AVERAGE  ANNUAL  DESIRED  FLOW  IN  CFS  (CMSi  AT  M 
AVERAGE  ANNUAL  ACTUAL  FLOW  IN  CFS  (CMS)  AT  M 
AVERAGE  ANNUAL  INFLOW  IN  CFS  (CMS)  AT  M 
AVERAGE  ANNUAL  LOCAL  FLOW  IN  CFS  (CMS)  AT  M 
AVERAGE  ANNUAL  REQUIRED  FLOW  IN  CFS  (CMS)  AT  m 
ACCUMULATED  SURPLUS  (SPILL)  AS  RATIO  TO  DF3TRED  FLOW  DURING 
CRITICAL  PERIOD 

AVERAGE  ANNUAL  SHORTAGE  IN  CFS  (CMS)  AT  DIVERSION  ID 

average  annual  shortage  in  thousand  kwh  at  power  plant  ip 

AVERAGE  ANNUAL  SHORTAGE  IN  CFS  (CMS)OF  DESIRED  FLOW  AT  M 

AVERAGE  ANNUAL  SHORTAGE  IN  CFS  (CMS)  OF  RPQUIREO  FLOW  AT  m 

AVERAGE  ANNUAL  SYSTFM  POWER  GENERATED  AT  IP 

TABLE  VALUES  OF  STORAGE  IN  ACRE-FEET  (THOUSAND  CUBIC  METERS)  AT 

starting  value  of  storage  in  acre«feet  nooo  cubic  meters)  at  m 

STORAGE  IN  ACRE-FEET  (THOUSAND  CUBIC  METERS)  AT  M  AT  START  OF  A 
GIVEN  INTERVAL 

STORAGE  IN  ACRE-FEET  (THOUSAND  CUBIC  METERS)  AT  m  at  End  OF 
INTERVAL  I 

table  value  OF  STORAGE  IN  ACRE-FEET  (THOUSAND  CUBIC  METERS)  AT  M 
CORRESPONDING  TO  LEVEL  L  AT  END  OF  INTERVAL  I 

AVERAGE  STORAGE  IN  ACRE"FEET  (THOUSAND  CURIC  METERS)  FOR  A  GIVEN 
INTERVAL  AT  M 

AGGREGATE  STORAGE  BELOw  WHICH  SHORTAGE  IS  DFCLARED 
SUM  OF  VARIOUS  QUANTITIES 
SUM  OF  BENEFITS 

TOTAL  CONSERVATION  FLOW  FOR  YEAR  AT  m 

AVERAGE  REQUIRED  DIVERSION  IN  CFS  (CMS)  AT  ID  DURING  YEAR 
AVERAGE  ACTUAL  DIVERSION  IN  CFS  (CMS)  AT  ID  DURING  YEAR 
TOTAL  NUMBER  OF  OATS  In  ALL  INTERVALS  FOR  A  YEAR 
TOTAL  EVAPORATION  IN  ACRE-FEET  (THOUSAND  CUBIC  ME TERS )  AT  m  F OR 
GIVEN  YEAR 

maximum  power  shortage  in  system  ix 

PEAK  POWER  FOR  YEAR  AT  IP 

TOTAL  REQUIRED  POWER  IN  THOUSANO  Kwh  FOR  A  GIVEN  YEAR  AT  IP 
AVERAGE  PREPROJECT  FLOW  in  cfs  (CMS)  AT  M  for  a  given  yfar 
TOTAL  GENERATED  POwER  IN  THOUSAND  kwh  FOR  A  GIVEN  YEAR  AT  IP 
AVERAGE  DESIRED  FLOW  In  CFS  (CMS)  AT  *0R  A  GIVEN  YEAR 
AVERAGE  ACTUAL  F^OW  IN  CFS  (Cm3)  AT  m  FOR  A  GIVFN  YFAR 
AVERAGE  INFLOW  IN  CFS  (CMS)  AT  *  FOR  A  GIVEN  YEAR 
AVERAGE  LOCAL  FLOW  IN  CFS  (CMS)  AT  m  FQB  a  GIVEN  VEAP 

average  required  flow  in  cfs  (cms)  at  m  for  a  given  year 

AVERAGE  IN  CFS  (CMS)  OF  THE  SHORTAGFS  OF  DIVERSION  IN  ALL 
INTERVALS  OF  A  GIVEN  tear  at  id 

TOTAL  of  the  SHORTAGES  IN  THOUSAND  KwH  JN  ALL  INTERVALS  OF  A 
GIVEN  YEAR  AT  POWER  PLANT  IP,  INTERVAL  SURPLUSES  ARE  IGNORED 
AVERAGE  IN  CFS  (CMS)  OF  The  SHORTAGFS  IN  DESIRED  FLOW  at  M  for 
YEAR 

AVERAGE  IN  CFS  (CMS)  OF  Thf  SHORTAGE  In  RFQUIRED  Flow  AT  m  FOR 
YEAR 

SYSTEM  POWER  GENERATION  FOR  YEAR 

system  power  shortage 

system  power  shortage  for  year 

grand  average  for  all  control  points 
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EXH1BIT  ? 


TEMP 

TFLO* 

titleoo 

Tu  C  TP#  K  j 
TLWEL(IP) 

TMP 

TMP* 

TMP8 

TMPP(M) 

TMPPR 

TMPR(I) 

TMPR3 

TMPX(I) 

TP 

TPP 

T3YP 

TWEKJP) 

V(J,M) 

VLEFT(J.M) 

VMAX(J,M) 

VOLU 

VU(J,M) 

VUNIT 

END 


EXHIBIT  i 


m  TEMPOPARY  VARIABLE 

•  ACCUMULATED  PLOP  DURING  CRITICAL  period 

•  title  op  STUDY 

•  TAILWATER  ELEVATION  below  ip 

•  TAILWATER  ELEVATION  PLUS  HYDRAULIC  LOSSES  (EXCLUSIVE  OP  TURBINE 
LOSSES)  In  PEET  AT  POWER  PLANT  IP 

•  temporary  variable 

•  TEMPORARY  variable 

-  TEMPORARY  VARIABLE 

•  POWER  RELEASE  REQUIREMENT  IN  CF3  (CMS)  AT  M 

-  POWER  RELEASE  REQUIREMENT 

•  MAXIMUM  DESIRED  PLOW  DURING  INTERVAL  I  AT  CONTROL  POINT  WHERE 
YIELD  IS  BEING  OPTIMIZED 

•  TEMPORARY  NAME  FOR  POWER  REQUIREMENT 

•  TEMPORARY  VARIABLE  FOR  INTERVAL  I 

•  TEMPORARY  VARIABLE 

•  TEMPORARY  VARIABLE 

•  AVERAGE  SYSTEM  POWER  GENERATION  IN  KW  FOR  YEAR 

•  TAILWATER  ELEVATION  BELOW  IP 

•  TOTAL  VALUE  OF  BENEFITS  AT  M  FOR  FUNCTION  J 

•  TOTAL  VALUE  OP  BENEFITS  REMAINING  AT  M  FOR  FUNCTION  J 

•  maximum  value  op  benefits  at  m  for  function  j 

-  DEFAULT  name  OF  VOLUME  UNIT(AC-FT) 

•  VALUE  OF  BENEFITS  UNALLOCATED  AT  M  FOR  FUNCTION  J 

•  NAME  OF  VOLUME  (STORAGE)  UNITS 
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EXHIBIT  3 
INVENTORY  OF 
VARIABLE  LOCATIONS 


The  locations  within  the  source  deck  for  all  variables  are  shown 
in  this  section.  The  numbers  adjacent  to  variable  names  are  the 
statements  in  which  the  variable  appears,  i.e.,  the  number  1490.03 
indicates  the  third  statement  following  statement  1400.  An  =  sign 
appears  after  statement  numbers  for  statements  in  which  the  variable 
occurs  to  the  left  of  an  equal  sign.  An  *  appears  before  a  library 
function  or  subprogram  name. 


ANOYS 

iroo,<vj* 

moo ,  ou 

1780,05* 

1  780  , Ofe 

MAIN 

ANyR 

t"i0.02» 

1900.00 

1900,01 

1900.02 

1900,03 

1 900^04 

1900,05 

MAIN 

1 900 , 06 

1900,07 

1900,08 

2190,00 

2190.01 

2190^02 

2250.01 

MAIN 

2120.02 

2320.03 

2320 , OR 

2320,05 

2590.02 

2590.03 

2590.04 

M  A  T  N 

ANYR3 

1830.00* 

1830,01 

1630,02 

MAIN 

kPf  no 

21 10.00 

2950. OR 

MAIN 

APPO 

2110.00 

2950 , OR 

“AIN 

CACET 

l  850.0l 

f  850.02 

1 850 . OR 

1850.05 

22RO.O0 

mats, 

CC8  9 

2010.01 

2030.02 

2030,03 

2030 . OR 

2030.05 

2030.06 

2030,07 

“AIN 

2010.08 

2030.09 

2030,13 

2030, 1  R 

20  xn  is 

“AIN 

COLO* 

1200, 01« 

1510.00 

26RO.06 

26R0.07* 

2650,02 

2650.03* 

2660,00* 

“AIn 

2680,02 

“  A  I  N 

CNTRL 

2470,01 

“AJN 

*eo*p 

1780,02 

main 

CONST 

1780,06 

“AIN 

CPT 

2040,03 

2060,00 

2710.06 

MAIN 

cos 

1730. 06* 

1810,00 

MAIN 

C  SOU  T 

1660,03 

1SR0.00 

1880,01 

1880,02 

1880.03 

1880^00 

18.80.05 

MAIN 

1880,06 

1880,08 

2030,17 

2190,08 

2510,03 

2510.03 

2530, OR 

“AIN 

2330 ,  OR 

2910.01 

2910.0M 

2930,00 

“AIN 

C  ST  I 

1610, OR 

1700,00 

MAIN 

CSTO 

1  ISO . 06 

1 R70 , 05 

?  7  9  0  0  1 

MAIN 

OINDX 

1120,00* 

2190.03* 

2780, OR* 

2780,05 

2780,05* 

“AIN 

ccon 

2080,02 

2980,02 

MAIN 

eepcy 

1170,00 

MAIN 

SPY 

1170,00* 

MAIN 

Eiev 

2290.01 

2550,09 

2650.09 

2550, 10 

2550.10 

MAIN 

EVAPO 

1170,03 

1280.00 

1280,01 

1280,01 

MAIN 

EVP 

1080, OR* 

1310, OR 

1310.05 

1310.05 

1850,05* 

2300,01 

2650,10 

MAIN 

2550,10 

MAIN 

EACTR 

1530,02 

15R0.01* 

16R0.31* 

1580.01 

1 170^03 

“AIN 

I 

1080,03 

1  080 , OR* 

11R0.01* 

1 iao.02* 

1170,02 

1230,02 

MAIN 

12R0.01 

1 2RQ  ,  0  1 

1250,01 

1250,01 

1280,00 

1280,01 

1280.01 

MAIN 

1310, OR 

1310,05 

1310,05 

1350,02 

1350.03 

1350,03 

1350,05 

MAIN 

1350,06* 

ii50,07* 

1390,02 

1390,03 

1190.03 

1 RO  0 ,0 1 

1400. 02 

MAIN 

1 RO  0 , 0  3 

1U00.0R* 

1 RiO , 02 

1R30.03 

1R30.03 

1470,02 

1R7O.03 

main 

1 R  70 , 0 1 

1R70.0R 

1 R70 , 05* 

1R70.06 

1R70.06* 

1500,01 

1510,00* 

MAIN 

1330,02 

1540,04 

15R0.05* 

1660,01 

l^eo.oo 

1380,01* 

1590,01 

MAIN 

1U70.03 

1R70.0R 

1R70.05* 

1870,06 

1470,06* 

1500,01 

1510.00* 

MAJN 

1330,02 

15RQ.0R 

1 5R0 , 05* 

1660,05 

1580.00 

1580,01* 

1590.01 

MAIN 

1390.01 

1620,05 

1630,00* 

1630,03 

1630, OR* 

1630,10* 

1660,01 

MAIN 

1660,02 

1660,03 

1660, OR 

1670,01* 

1690.00 

1700,00. 

1710.03 

MAIN 

1  T  1  0 , 0  R 

1710, OR* 

1710.05* 

1710,05* 

1710,06* 

1710,07* 

1770,00 

MAJN 

1770,00 

1  780. OR 

1780.0? 

1780, IR 

1780.16 

1780,17 

1800,01 

MAIN 

1800,03 

1830,09 

1830, U 

18R0.00* 

1850,03 

1850,04* 

1850,05* 

MAIN 

1880,00 

1880,01* 

1880,02* 

1880.03* 

1880,04* 

1880,05* 

1860,06* 

MAIN 

1380,08* 

1910,01* 

1920,01* 

1930,00* 

1960,00 

1960,01 

1980,00 

MAIN 

1980,01 

1990,00 

2000,01 

2010. 02 

2030,16* 

2030,17* 

2110.00 

MAIN 

2120,01 

2130,01 

2150.03 

2190,05* 

2190,06* 

2190  08* 

2196,01 

MAIN 

2200,01 

2210,01 

2230,06 

22RC.OO* 

2250,00 

2270,00 

2280,00* 

MAIN 

2280.01 

2290,01 

2300,01 

2320,10 

2320,11 

2320,13* 

2320,14* 

MAIN 

2320,15* 

2320,16* 

2330,05 

2 jRO  ,  0  1 

2350,01 

2360,01 

2380.01 

MAIN 

2390.02* 

2390,03 

2800,01 

2R00.02 

2400,02 

2430,01 

2R30.02 

MAIN 

2UR0.02 

2R60.01 

2R70.01 

2R90.02 

2500,01 

2510,01 

2510,02* 

MAIN 

2510,03 

2510,03* 

2?l?,0l 

2520,01 

2530,02 

2550,03* 

2530, OR 

main 

2530, OR* 

2535,01 

25R0.01 

2590,06 

2600,01 

2610.01 

2620,01 

“AIN 

2950. OR 

2960,02 

2710.03 

MAIN 

ICPT 

1 150,08* 

1310,02 

1620,02 

1710,02 

1830,04 

2810,01 

MAIN 

2670,00 

2880,01 

2910,02 

2950,02 

MAIN 

ICSE 

2R60.01 

1  110,06* 

MAIN 

10 

1110.01* 

1 110.02* 

11 1C.03* 

1110. OR* 

1  10,05* 

1120,00* 

MAIN 

1 350, OR* 

1350,06* 

1350,07. 

1730.02 

1730,03* 

1  '30,04* 

1740,00* 

“AIN 

1760,01* 

1760, OR* 

1770,00 

1770,00 

18R0, 00* 

2010,00* 

2010,01 

MAIN 

2010,01* 

2010,02 

2030,10* 

2030.1  1 

2030.11* 

2030,18* 

2030.13* 

MAIN 

2050, 1R* 

2030,15* 

2030,17* 

2150,00* 

2150,01 

2170,00 

2180,00* 

main 

2190,00* 

2190,01* 

2196.02* 

2190,03* 

2190,06 

2196,01 

2200,01 

MAIN 

2210,01 

2710,09* 

2710,10 

2710,11 

2720,00* 

2730,00 

2730,01 

MAIN 

2730,02 

2780,03 

2780, OR" 

2780,05* 

2780 , OS* 

2790.01 

2910.05* 

“AIN 

2910,06 

2930,00* 

2930.01 

MAIN 

IOCPT 

1  150,05* 

2710.09 

“AIN 

IOIV 

1150.07* 

1 150, OR 

2010,00 

2030,10 

2150,00 

2910,05 

MAIN 

IOIVE 

1150,03* 

MAIN 

•  1  • 
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IDIVR 

2090,02 

!03Hf 

li^n.Ofe" 

fnv 

2790,01 

if 

1 1  an, 02« 

1 970. ni 

IECON 

1030,07 

2960.02 

IEV 

1030,02b 

1310,03 

IE  V  YR 

1270,01 

IFLOW 

1200, 00* 

1470.06a 

1760,12 

1600.11 

iKnDE 

2980,29 

*TNr)UT 

1160,01 

ip 

1100,02 

1100.03a 

1160,05 

1 170 , ofl» 

laoo.oa* 

1750,01 

1760,00a 

1760,02a 

2320. 0t» 

2120.02a 

2320,09a 

2320  3 

2330,03 

2330.05 

2390.01 

2390,02a 

2420.01 

2430,00 

2440,02 

2740,03a 

2750.01 

2750.0? 

2820,04a 

2620,04a 

IPNT 

1020,01a 

1220,02a 

1350,03 

1360.01 

1520, Ola 

1590,01 

ipn* 

2430,00 

2760 ,00 

IPR 

1390.03 

1390.03 

IPRL 

2230,03a 

IPRN 

1630,05 

IPRNT 

1630,05 

IPwKN 

1760,03 

2320,07a 

IPwR 

2000,00 

2320,00a 

IPWYR 

1360,00 

IR 

1760.12a 

1760,13 

1630,13a 

1830.14 

IRF3 

1160.00a 

1720,10 

2490,01 

2710.10 

IRFSM 

1030,04a 

1780,12 

IRG 

2550,02 

2580,03 

2550.09 

2550.10 

IRPT 

1530,02 

1540. 02« 

I3ERV 

2070.02 

ISmry 

2550,01 

2980.03 

I8TOR 

2240, O0a 

2250 ,  on 

ISY3R 

1150,09a 

2390  ,o l 

ITEMP 

1630,02a 

1630,04 

TTmP 

1100,01a 

1100.02 

1630,06a 

1830,08 

2070, Ola 

2070.0? 

I  TP 

1630,06a 

1630.07 

1970.02a 

1970,03 

JTRN3 

1020, COa 

1130.01" 

IUNIT 

2030,00 

.?  1  9  0 , 0  7 

IUP0T 

2760,01 

IUPQI 

1630,09 

ILIP3T 

1040,02a 

IX 

1 120, Ola 

1120. o2« 

1430,03 

1470.01 

2640,02 

2640,03 

IYFAR 

1 160,04a 

IYP 

1160,03 

1160.04 

2700,00a 

2700.01 

I YR 1 

1160,03a 

2660,01 

J 

1220,01 

1760.02 

JPRNT 

1630,05a 

1 900 , 1  1  a 

2440,01 

2460,00 

JUPQ! 

1630,0' 

K 

1030,03 

1030,04a 

1630,02 

1630.0“ 

1910,00 

1920.00 

1930,01 

1960,00 

2980,02 

1470,06a 

1500,00 

1510, 00« 

1800,03 

2640,01 

2680,02 

1100,04a 

1 100,05a 

1100,06" 

1390,01 

1390,02 

1190,03 

1750,02" 

1750.03" 

1750, 04a 

1760.05" 

1770,00 

1770,00 

2320,03" 

2320,04" 

2320,05" 

2320,14" 

2320,15" 

2320.16" 

2340,01 

2350,01 

2360,01 

2390,03 

2400,01 

2400.02 

2430,02 

2430,03 

2430,03" 

2740,05 

2740.07 

2740,09 

2750,03 

2760,00 

2760,01 

2830,01 

1250.01" 

1260,01 

1  300,00 

1390,03 

1420,02 

1430.03 

1770,00 

1820,01 

2640,01 

2810.01 

2740,04 

2320,01 

2740.02 

2740,03 

1786,14 

1780,16 

1780,17 

1720, 10« 

1850,00" 

2070,00* 

2740.00 

2770,00 

2950,03 

1630.12 

2040,03 

2550.04 

2550.05 

2550,06 

2280,00a 

2260,01 

2390,01 

2400,02" 

2750,01 

1620,04a 

1630,01 

1680,01 

1830,11 

1910,0? 

1920,00 

2090,01" 

2090 ,0? 

1630,06 

1780, 15« 

1780,16 

2680,00" 

2510,03 

2510,03* 

2530,04 

1130, no* 

1350,01 

1430,01 

1530,01" 

2850,00 

2560,0? 

2560,03 

1220.02 

1220.0? 

2110,00 

2700.01 

1830,00 

2150,02 

2490,00 

2190,04* 

2230,02" 

1040,01 

1C«0,02" 

1050,01 

1780,11 

1760.12 

1630.1 1 

1920.01* 

1920,03 

1920,04 

1970,00 

1*70,01 

2040,03 

main 

MAIN 

main 

MAIN 

MAIN 

MAIN 

MAIN 

1780,03 

1780,10 

MAIN 

MAIN 

MAIN 

1100,07" 

1110,00* 

MAIN 

1390.03 

1400,02 

MAIN 

1750.05* 

1750,06* 

MAIN 

2000,00* 

2000.01 

“AIN 

2320,06a 

2320,06 

MAIN 

2330,01 

2330,02 

MAIN 

2360,01 

2390,01 

main 

2400,02 

2420,00 

MAIN 

2430.04* 

2430,04* 

MAIN 

2750,00 

2750,01 

main 

2820.02 

2820,03* 

MAIN 

MAIN 

1310.05 

1340,01 

“AIN 

1460,01 

1470,01 

MAIN 

2670,00* 

MAIN 

MAIN 

MAIN 

main 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

1830,12* 

1630.11 

MAIN 

MAIN 

2150.01 

2230,00 

MAIN 

MAIN 

MAIN 

2550,07 

2550,06 

MAIN 

MAIN 

MAIN 

“AIN 

MAIN 

“AIN 

2750.01 

main 

MAIN 

1750,00a 

1750,01 

MAIN 

1950.01 

2040,0) 

MAIN 

MAIN 

1970.01* 

1970,02 

“AIN 

MAIN 

“AIN 

2530,04* 

“AIN 

“AIN 

MAIN 

“AIN 

1430,02 

1430.03 

“AIN 

2590,01 

2590,06 

MAIN 

“AIN 

MAIN 

2560,00* 

2660,01* 

MAIN 

MAIN 

MAIN 

MAIN 

2530,04 

2360,00 

MAIN 

“AIN 

MAIN 

1050,03a 

1630,01 

MAIN 

1830.12 

1830,14* 

MAIN 

1920.05* 

1930,00* 

MAIN 

2060,00 

2070,02 

MAIN 

rXHiAIT 
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2090 ,02 

2230,05" 

2240,00 

2250,00 

2710,05 

2960.0? 

“AIN 

KCPT 

1030,01 

1070,00 

1140,00 

main 

KOtV 

1110,01 

MAIN 

KJ 

1650,06 

1630,09 

MAIN 

KPCfl 

1050,01 

1080,03 

MAIN 

KP“R 

1100.01 

1750,00 

2590,01 

2840,03 

“AIN 

KPNRS 

1100,01 

1120,01 

1750,00 

2980,19 

MAIN 

K»es 

1020,05 

1030,03 

1080,01 

1210,04 

MAIN 

KUPST 

1040, 01 

MAIN 

KMH 

59*0.21 

“A  TN 

KX 

1620,00" 

1620,04 

1630,01 

1680,01* 

MAIN 

L 

1050,02 

1050,03" 

1530,02 

1540,03 

1540, AS" 

1560. *01 

1580,01" 

MAIN 

1590,01 

1590,01 

2230,04 

2230,05 

1040^02" 

MAIN 

M 

1020,05 

1030,00" 

1030,01 

1030,02" 

1030,04" 

1050,03" 

MAIN 

1070,00 

1070,01" 

1070,02" 

1070,03* 

1070.04" 

1070.05" 

1070.06" 

MAIN 

1 0T0, 07" 

1 070,08" 

1070,09" 

1070,10* 

1070,11" 

1070,12" 

1070,13" 

MAIN 

1070,14" 

1070,15" 

1070,16" 

1070,17" 

1070.18* 

1 070.19" 

1070,20* 

MAIN 

1060,00" 

1080,01 

1080,02" 

1080,04" 

1140,00" 

1  140,02* 

1150.01" 

MAIN 

1150,02" 

1 150,03" 

11*0,04" 

1  150.05" 

1150,06" 

1150.07" 

1150.08* 

“AIN 

1150,09b 

1150,10" 

1150.11" 

1  160,00" 

1210,04 

1210.05" 

1220,00" 

MAIN 

1230,02 

1240,01 

12«0,01 

1250,01 

1^50,01 

1110,02= 

1310.03 

“AIN 

1310,04 

1310,05 

1310,05 

1350,02 

1350,03 

1350,03 

1350.04 

MAIN 

1470,02 

1470,03 

1470,03 

1470,05" 

1470.06 

1  470,06" 

1530,02 

“AIN 

1540,03 

1540,05" 

1560,01 

1 580,01" 

1590,01 

1590,01 

1620.02" 

“AIN 

1620.03 

1620,04 

1630,00" 

1630,04" 

1630,06 

1630,09 

1630,10" 

“AIN 

•660,02 

1660,03 

1660,04 

1670,01" 

1700,00" 

1710,02" 

1710.04 

MAIN 

1710,04" 

1710,05" 

1710,05" 

1710.06* 

1710.07" 

1720,01" 

1720.02" 

“AIN 

1720,03" 

1720,04a 

1720,05" 

1720,06" 

1720,07" 

1 720,08" 

1720,09" 

MAIN 

1720,10 

•”0.10" 

1830,04" 

1830,05 

1830,06 

1830,12 

1850, Oua 

MAIN 

1650.01" 

1850,02" 

1850,04" 

1850,05" 

1880,01" 

1  880,02" 

1880,03a 

“AIN 

1880,04a 

1860.05" 

1880,06" 

1880,07" 

1880,08" 

1900,00" 

1900,01-5 

“AIN 

1900,02" 

1900,03" 

1900,04" 

1900,05" 

1900,06" 

1900,07" 

1900.08a 

“AIN 

1900,09" 

1900,10" 

1970,01 

1980.00 

1980.01 

1990,00 

2000,00 

“AIN 

2010,00 

2030,01" 

2030,02a 

2030,03" 

2030.04" 

2030  05" 

2030,06" 

“AIN 

2030,07" 

2030,08" 

2030,09a 

2030,10 

2040.02 

2040,03 

2060,00 

“AIN 

2070,00 

2070.01 

2070.02 

2090.00 

2090.01 

2090.0? 

2120.01 

“AIN 

2130,01 

2150,00 

2150.01 

2150.03 

2230.00 

2230,01" 

2240.00 

“AIN 

2280,00 

2290.01 

2300,01 

2320,00 

2320,01 

2390,01 

2390.01 

“AIN 

2400,02" 

2460,01 

2470,01 

2490,01 

2490,02 

2500,01 

2510.02 

“AIN 

2515,01 

2520,01 

2530,01 

2530,03 

2535,01 

2540,01 

2710.03" 

MAIN 

2710.05 

2710,07 

2710,08 

2710,09 

2710.10 

2710,10 

2740.00 

MAIN 

2740,01 

2740,02 

2740,03 

2750,01 

2750,01 

2770,00 

2770.00 

MAIN 

2770.01 

2770,02 

2770,03 

2770,04 

2770,05 

2770,06 

2810.01" 

MAIN 

2610,02" 

2810.03" 

2810,03" 

2810,04* 

2810.05" 

2810,05" 

2*10.06 

MAIN 

2320.00 

2870,00 

2880,01 

2910,02* 

2910,03= 

2910,04" 

2910.05 

“AIN 

2910,07 

2910,08 

2930,01 

2930,02 

2950,02" 

2950.03 

2950,04 

“MN 

2960,02 

MAIN 

MQ 

1630,02 

“AIN 

MX 

1230.01 

1310,01 

1310,02 

1620,01 

1620,02 

1710.01 

1710.02 

MAIN 

1630,03 

1830,04 

2590,01" 

2590,02® 

2590,03" 

259  0 0  4" 

2590,05= 

MAIN 

2590,06 

2600,01 

2610,01 

2620,01 

2710,02 

2710,03 

2810.00 

“AIN 

2810,01 

2810,06" 

2820,00" 

2840,03* 

2840,04" 

2850.00 

2910.01 

“AIN 

2910.02 

2950,01 

2950,02 

“AIN 

MCPT 

1310.01 

1620,01 

1710,01 

1830,03 

2710,02 

28 10.0  A 

2870,00 

“AIN 

2880,01 

2910,01 

2950,01 

MAIN 

NCYCl 

1170,01" 

1180,01" 

1190,01" 

1190.0? 

1190,02" 

MAIN 

MD4Y5 

1400,03 

1780,05 

2320,11 

“  A  T  N 

NO  1  V 

1730,01 

1730,02 

2780.02 

2780,03 

2790,01 

“AIN 

NOT  yp 

1150,04" 

“A  T  N 

NDIVR 

1150,02b 

2090,00 

2090,01 

“AIN 

n  D  V  3  M 

1110, 02b 

2930,01 

“AIN 

M  D  V  Y  R 

1340,00 

1350,01 

“AIN 

NF  IQ" 

1230,01 

“AIN 

NFL* 

1150,11" 

1 620,03 

1620,04 

“  A  T  N 

Ml 

1780,15 

2230,04 

2230,05 

“A  T  N 

NLP 

1780,15 

“AIN 

NLYR 

1520, 00b 

1530,01 

1  250,'  01 

MAIN 

NPCR 

117«,02 

1210,05" 

1240,01 

1240,01* 

1250,01 

1280,00 

“AIN 

1280,01 

1280,01 

1310,04 

1310,05 

1310,05 

1 350,02 

1350.03 

“A  TN 

1350,03 

1 350,05 

1390,02 

1390,03 

1390  . "3 

1  4  A  0  ,  A  1 

1430,02 

“AIN 

1430,03 

1430,03 

1470,02 

1470,03 

1470,03 

1470,04 

1500.01 

“AIN 

1540,04 

1560,00 

1560,01 

1580,00 

1590,01 

1590.01 

1620,05 

“AIN 

-  3" 


tXHTBIT  3 


1630,03 

1660*01 

1880,00 

1960,00 

2 010.02 

2030.16 

2196.01 

2200.01 

2290.01 

2300.01 

2380,01 

2390.02 

2440,02 

2460,0! 

2520,01 

2530,02 

2620,01 

2950,04 

M«v  o 

1160.35 

11*0.00 

NPWRS 

1190.02 

2840,02 

1 1*0.02* 

NQYR 

1460,00 

1470,01 

NRCSM 

1780,10* 

1780,11 

NRE8R 

1150,01* 

1780.10 

N3FRV 

2070,01 

N3H2 

1070,02* 

2*10,07 

nshhn 

1070,01* 

2*10.07 

NSHP 

1070,03* 

2*10.08 

N3HP9 

1070,04* 

2*10,07 

NSRTP 

1120,02* 

2850,00 

NSTOR 

1050,03* 

2*60,02 

NUPOI 

1630,06 

NX 

1630.09* 

1630,10 

NYRS 

1220,01 

2950,04 

PINDX 

1110,00* 

2320 , 06* 

2840,04* 

2850,00 

POWER 

2000,01 

2320.15* 

POWR 

1390,02 

1390,03 

PQWRP 

2430,02 

2440,02 

P'JNIT 

1770,00 

1770.00 

PwER 

2320-14* 

2340.01 

PnRMX 

1400,04 

pnrs 

1430,02 

1430,03 

02NDX 

1070,10* 

1900,1 0* 

OA 

1800,03 

2550.11 

1830.14 

QCON3 

1880.01* 

2490,02 

QDIV 

1350,06* 

1350,07 

QOIVA 

2010,02 

2030.17* 

00 1  VS 

1350.07* 

01 

1830,14 

1880.04* 

oil 

1230.02 

1240,01 

1920,01* 

1930,00* 

QINDX 

1070,09* 

1900.09* 

Gl 

1630,00* 

1630,04* 

1880,02* 

2120.01 

aiKG 

1070,20* 

1710,04 

QM2 

1150,10* 

1880,07* 

0“  I N 

1470,02 

1470.03 

1710,05* 

1710,05* 

Q“  I N2 

1710,04 

1710,04* 

QMINA 

1710,06* 

1710.07 

0MIN3 

1710,07* 

QPREP 

1880,03* 

1980.01 

OUNIT 

1660,04 

1770.00 

•REARNG 

2980.06 

PNVR3 

1830,01* 

1900,00 

1900,06 

1900,07 

2320.02 

2320,03 

2780.04 

2810.0? 

PT 10 

1630,04 

RTIDO 

2780,05 

2780,05* 

3CN3 

1070, IS* 

1900,04* 

3D  V 

1110,06* 

2190,00* 

3DVA 

1110,04* 

2190.01* 

SE  VP 

1080,02* 

2230,01* 

3M0I  v 

1840,00* 

2210,01 

3M0MX 

1 110,03* 

2930,00* 

SH“X 

1070,05* 

2910.03* 

3m“X2 

1070,06. 

2910,04. 

3MOHT 

t?tO,Oi* 

1800,07 

1690,00 

1710,03 

1780,06 

1960,01 

1980,00 

1980,01 

2110.00 

2120.01 

2130.01 

2210,01 

2230.06 

2250.00 

2320,10 

2330,05 

2340,01 

2390,01 

2400,0} 

2400.02 

2470,01 

2490,02 

2500,01 

2535,01 

2540,01 

2590.06 

1390.01 

2820,01* 

2820,02 

1420,01 

1410,01 

2560,01 

1830,06 

2040,02 

2930,01 

2930,01 

2°30 , 02 

2930,02 

2590,05*  2620,03*  2820, 0« 

2350 , 0 1  2390,03  2550,10 

1390,03  1400,02  1400,04* 

2550,11 

2390,02*  2600,01 

1«30,03  2590,06 

2810,04*  2810,05  2810,05* 

1880.05*  1980.00*  2500,01 


2190,06 

2200,01  2550,04  2550.04 

2150,03  2550.10  2550,10 

1240,01  1250,01  1250.01 

1960,00 

2810.02*  2810,03  2810.03* 

1630.10*  1660,02  1660,03 

1710,04*  2040,03 
2530,01  2770,04 

1470,03  1470,05*  1470,06 

1710,06 

1710,05*  1710,05*  2530,03 
1800.01  1800,03  2510,02 

2130,01  2550,02  2550,02 

1770,00 

1900,01  1900,02  1900,03 

1900,08  2190,00  2190.01 

2320,04  2320,05  2590,02 

2810,04  2820,03  2840,04 


2770,00  2770,00 

2730,00  2780,05*  2780,05* 

2730,01 

2740,01 

2550,05  2550,05 

2930,01 

2910,07  2930,01 

2910,07  2950,02 

1800,07*  2640,02  2640,02* 


1830,0* 

1850,03 

MAIN 

1990.00 

2000,01 

MAIN 

2150.01 

2190,05 

MAIN 

2270.00 

2280.01 

MAIN 

2350.01 

2360.01 

MAIN 

2400,02 

2430,01 

MAIN 

2510,01 

2515,01 

MAIN 

2600,01 

2610,01 

MAIN 

MAIN 

2830,01 

MAIN 

2560.02 

2840,01 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

2820.04*  2830,01  MAIN 
MAIN 

2550,10  2610,01  MAIN 

2320,13  2380,01  MAIN 

MAIN 
MAIN 
MAIN 
MAIN 
MAIN 

2820.00  MAIN 

2550,03  2550,03  MAIN 

maI* 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 

1630.04  1700,00  main 

MAIN 

2810.06  MAIN 

1670.01*  1700,00*  MAIN 
MAIN 
MAIN 
MAIN 

1470,06  1510,00*  MAIN 

MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
“AIN 
MAIN 

1900,04  1900,05  MAIN 

2190,02  2230,01  MAIN 

2590,03  2590,04  MAIN 

MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
“AIN 
MAIN 
“AIN 

2640,03*  2640,04*  “AIN 


exMifljr  y 


m  4 


2640,05b 

2640.05= 

s-p-x 

1070,07= 

2910,08 

8-ST2 

1 880,08b 

2560.01 

3-RTA 

1 790,03b 

1800,05" 

ShBTP 

2320,16s 

2360,01 

3HSTQ 

1880,06s 

2520,01 

3P-X 

1 100,07* 

2430.04= 

SP« 

1 100,06* 
2820,04= 

2320,02" 

SPRE 

1070,12= 

1900,01" 

SP3MX 

1070, 08b 

2910,08 

SPWR 

1100,03b 

2320,03" 

30 

1070,19a 

1900.06" 

3QA 

1070,16s 

1900,05* 

30! 

1070,13" 

1900,02" 

SOI 

1070,11" 

1900,00" 

SQmn 

1070,14* 

1900,03" 

3RPL3 

1210,02a 

1810,01 

33-2 

1070,18* 

1900.08" 

SSHD 

1 1 10,05* 

2190,02" 

SSHP 

1 100,05* 

2320,04= 

33H0 

1070,17" 

1900,07= 

33P 

1100,04" 

2320,05= 

3T0R1 

1030,00" 

1210,05 

3T0RA 

1220,00* 

3T0RB 

1210,05* 

1780.14 

2550,10 

2550,10 

3TORL 

1530,02 

1540,03 

1780,16 

1780,17 

3U- 

1830,10* 

2980,35 

1910.00" 

3VCNS 

1720,05* 

1900, 0U 

S  YD  V 

1730,03" 

2030,13" 

3YD  V  * 

1730,04" 

2030,14" 

3YDYS 

2320.08 

2740,09 

2320,09 

3YEVP 

1720,10 

1720.10" 

3Y-SP 

1138,00" 

2850.00 

3YPMX 

1750,05" 

2430.03 

3YPR 

1750.04" 

2320,02 

2590,05 

2590.06 

SYPRE 

1720,02" 

1900.01 

3YPWR 

1730.02" 

2320,03 

2590.03 

2610,01 

3  YQ 

1720,09" 

1900.06 

3YQA 

1720.06* 

1900,05 

3YQI 

1720,03* 

1900,02 

3YQL 

1720.01* 

1900,00 

3  YQmn 

1720,04* 

1900.03 

3Y3H2 

1 720 , 08* 

1900,08 

SYShD 

1740,00* 

2030,15" 

3Y3mP 

1760,00* 

2320,04 

2590,04 

2590.05 

3Y3H0 

1720.07* 

1900,07 

3Y3P 

1750.03* 

2320,05 

3Y33P 

2400,02 

2400,02 

3Y3Y3 

1 750 , 06* 

2400,02 

TE-P 

15U0.03* 

1540,05 

1810.00 

2320,08" 

2740,07* 

2740,08 

TFLOw 

1210,03* 

1790,02" 

2640,02 

2640,02" 

TmP 

1780,08* 

1780,16" 

1800,07 

1800,07* 

1920,01 

2320,11" 

2330,02" 

24J0.04* 

2350,01 

TMPP 

1080,00" 

1350.02 

1920,03 

1920,04 

TMPR 

1470,06 

1470,06" 

T  MP  X 

1910,01* 

1960,01 

2510.02" 

2510.03 

2640,07 

2930,02 


2550,07 

25S0.07 

1800,06 

2400,01 

2550,11 

2620,01 

2550,06 

2550 , 06 

2430,04* 

2760.01 

2320,08 

2590,02" 

2740.05 

2710,08 

2930,02 

2590,03* 

2740,07 

2750,02 

2770,02 

2810.03* 

2810,03" 

2770,01 

2710,10 

2710,10 

2710,07 

2770,05 

2810,05* 

2810,05" 

1810,01* 

2650,00 

2650,01 

2770,06 

2820,00* 

2880,01 

2730,02 

2590,04* 

2740,09 

2750,03 

2770,03 

2750,01 

2750,01 

1220,00 

1850,01" 

2550,08 

1850,04* 

1990,00 

2280,00 

1540,05= 

1560.01 

1580,01" 

2240,00 

1910.01 

1920,02* 

1920,03" 

2030.05* 

2490,02 

2190,00 

2190,03 

2196.01 

2190,01 

2200.01 

2550,04 

2330,01 

2330,0? 

2330,03 

1850,02* 

2230,01 

2300,01 

2430,03* 

2440.02 

2550.1 1 

2320,06 

2320,09* 

2330.09 

2030,02* 

2130,01 

2550,02 

2330,02 

2390,03 

2420,00 

1900.09 

2030,06* 

2515,01 

2030,04* 

2500,01 

2550.03 

2030,03* 

2150,03 

2550,10 

2030,01* 

2120,01 

1900,10 

2030,08* 

2535,01 

1900,10 

2030,09* 

2540,01 

2190,02 

2190,03 

2210,01 

2320,06 

2330,01 

2400,01 

2620,01 

1900,09 

2030,07* 

2520,01 

2330,03 

2390,01 

2390,01 

2400,02 

1660,03* 

1660,04 

1780,07" 

2330,01* 

2360,01 

2420,01= 

274f),09* 

2740,10 

1800,00 

1800,01* 

1800,02 

1790,01 

1800,03" 

1800,04 

1810,00* 

1810,01 

1810,01* 

2320,12" 

2320,13 

2320.14 

2420,00" 

2430,02" 

2430,03 

1350,03 

1350,03 

1350,06 

1920,05" 

1930,00 

1510,00 

2190,06" 

2190,08" 

2196,01 

2510,03" 

2515.01 

2530,03* 

-AT  \ 
M»  T  n 
“*!*. 
“A  T  N 
-A  I  N 
-AT'. 
“A  V. 

2750.00  2P20.0US  “4I' 

-AT'. 
-A  I  N 
MAI'. 
MAIN 
MAIN 
“AIN 
MAIN 
main 

2810^06"  2870.00  “AIN 
2650,01s  2650,03  main 
“AIN 
main 
MAIN 
-AIN 
-AIN 

2550.08  MAIN 

MAIN 

25*0.08  2550,08  -atn 

main 

1590.'ol  1500.01  -AIN 

MAIN 

1920.‘o4a  1930.00  “AIN 
-AIN 
“AIN 
-AIN 

2550  ’o4  “AIN 

2760,05  2740,07  -AIN 

MAIN 

2550 1 0  2550.1  0  -AIN 

MAIN 

MAIN 

2380,01  2590.02  -AIN 

“AIN 

2550’02  -AIN 

2550.10  2550.10  -AIN 

-AIN 
-AIN 

2550  Jo  3  2550,1  1  -AIN 

2550.10  “AIN 

MAIN 
MAIN 

2550'07  2550.07  -AIN 

2550^05  2550. OS  -AIN 

2420.01  2550,11  “AIN 

MAIN 

2550 .06  2550.06  -AIn 

2600.01  -AIN 

-AIN 
MAIN 

1780, *14*  1790.01  -AIN 
2740. 05«  2740,06  “AIN 
“AIN 

1 800. ‘06  1810,00  -AIN 

MAJN 

1800,05  1800,06s  -*In 

1910,02"  1910.03s  “AIN 
2320,15  2320,16  main 

2450,03s  2430,04b  main 
MAIN 

1830.14*  1910.  oo  -AIN 
MAIN 
MAIN 

2320  ^ l 3"  2330,05  main 
2530.04  2530.04b  main 


-  5. 


EX-IBTT  3 


2535,01  main 


TP 

1780,09* 

1700.17* 

1010,00 

MA  TN 

TPP 

2640,06* 

2640,00 

2650,02* 

2650,04 

2660,00 

main 

rgvp 

2330,03* 

main 

TSYP 

23U0.01 

MAIN 

VUNJ  T 

1  770,00 

1770.00 

main 

Amos 

1000,22 

1  Nr  UT 

a  \n  y  s 

Ju 10,05s 

3440,00 

3470,00 

3405,03 

4630,01* 

4630.02 

T  NCUT 

aPf  Ro 

3ono,21a 

3290.00 

5410,01 

44UQ , 03 

input 

APPO 

3000,22* 

3290 , 00 

3340, Oa 

3340.09 

3340,13* 

3560.02 

3410,01 

T  NruT 

44u0 , 03 

INPUT 

AREA 

4000,00 

4400.01 

input 

A  T  M  p 

3860 , 0  1 

4420.03* 

4420,04 

4420,05 

InhijT 

BLN* 

3000,31 

T  nPuT 

CACE  T 

3000 , OPs 

3200.01 

3210,05* 

3370,01 

INPUT 

cces 

3000,07* 

3200.00 

3210,04* 

3370,00 

3485,01 

3405,02* 

3485,03 

INPUT 

3490,03 

3490.02* 

input 

CEvap 

3860,01 

4430.02 

T  NPuT 

celod 

3000. 02« 

3200.00 

3210,02* 

3210,02* 

3170,00 

input 

CLncL 

3000,01* 

3200,00 

3210.01 

3210,01* 

3770,00 

input 

CNSTI 

3000.05* 

3200.00 

3225,00 

3230,00* 

3370,00 

3430,08* 

3440,00 

input 

3450,00 

input 

CNSTn 

3000,06* 

3200.00 

3240,00 

3250,00* 

3370,00 

3460,01* 

3470,00 

I  nPuT 

3480,00 

T  NPUT 

CONST 

3300,03* 

3300.04 

3300.04* 

3440,00 

3470,00 

3405,03 

3490,02 

input 

3490,02 

Input 

CPT 

3720,00 

4110,0" 

input 

COOEL 

4090,00 

4500,01 

input 

csrnjT 

3000,25* 

3405.01* 

3485,03* 

input 

C8T I 

3430,07* 

3440,00* 

3450,00* 

I  NOU  T 

CSTfl 

3460,00* 

3470 ,00* 

3400,00* 

4270,02 

4410,01 

INPUT 

DEUNC 

3820,03 

4290.03 

input 

OP  A  R  A 

3020, Ou 

4300.01 

input 

f  EC  V 

4100,00 

4600.01 

input 

EE  EC  V 

4030,02 

4520.02 

4600,00 

input 

EL 

4020.00 

4500.01 

input 

ELEV 

4420,02a 

input 

EVAPn 

3000,24* 

3320. 0O 

3500,00 

3510,02 

INPUT 

EACTR 

3890.02 

3900.02 

3900.02* 

3940,01 

INPUT 

FIRST 

.S3 

3010.07 

3020.01* 

I  NCUT 

FL«T 

3220,01 

input 

FLwU 

3000,00 

3210,06 

TNPUT 

T 

3000,20 

3000,21 ■ 

3000,22* 

3000,23* 

3000,24* 

3000,25* 

3030,00 

INPUT 

3040,00 

3110.02 

3110.03 

3120,01* 

3120,04 

3120.04* 

3130,00 

input 

3130.00* 

3130.01 

3130,02* 

3130.02* 

3270,00 

3290.00 

3310,00 

TNPUT 

3320,00 

3330.01 

3340,06 

3340,08 

3340,09 

3340.10 

3360,06* 

Input 

3410.01 

3420.01 

3430,02 

3430,03* 

3430,04 

3430.04* 

3430,05 

Input 

3430,06 

3430.07* 

3440,00* 

3450,00* 

3460,00* 

3470,00* 

3480,00* 

input 

3405,01* 

3405,03* 

3500,00 

3510,01 

3510,02 

3540.00 

3630,01 

INPUT 

3630,02 

3630.03 

3630,04 

3630,04* 

3630,06 

3630,07 

3660 , 0 1 

input 

3660,01* 

3660,02* 

3660,03* 

3600,00* 

3720.00 

3730,02* 

3730,03* 

input 

3730.04* 

3740.00* 

3740.05 

3740,06* 

3760,00 

3775,01 

3775,03 

INPUT 

3775.04 

3790.00 

3000,00 

3810,03 

3010,05 

3810.05* 

3020,03 

input 

3820,04 

3830,00 

3840,00 

3850.00 

3090,02 

3900,05 

3900,06* 

input 

3920,01 

3940.00 

3940,01* 

3960,03 

i960 ,04* 

4050,00* 

4260,00 

INPUT 

4260,00 

4270,01* 

4270,02* 

4200 ,00* 

4290,03 

4300,01 

4350,01 

input 

4370,01 

4390. 01 

4410,00* 

4410,01 

4410,02* 

4410,03* 

4410,04* 

input 

4410,05 

4410,05* 

4440,03 

4460,00 

4620,01 

4620, 02 

4620,03 

I  NnUT 

4630,01 

4630.02* 

4730,03* 

4730.04 

4760,00 

4760,03 

INPUT 

*r  aps 

4690,06 

INPUT 

TALK 

3660,01 

3660 , 0 1 ■ 

3680,03 

4850,00* 

4050,00* 

INCUT 

IBR 

.02 

3120.02 

3120,05* 

3130,01* 

3130,02 

3130.02* 

3160,00 

INPUT 

3170,01 

3630.06 

3710,01 

INPUT 

IBRN 

3100,00 

3110.03 

3120,06 

3170, 01* 

3170,02 

3710.01* 

3710,04 

TNPUT 

ICO 

3100,00 

3120.03 

3120,06 

3160,01 

3620.00 

3630.02 

3640,01 

TNPUT 

3670,01 

3670,04 

4720,00 

4710,04* 

4740,02 

4750,00 

4760,01 

INPUT 

I C  N  T 

3010,05* 

3110,01* 

3120,02 

3120,04 

3120,04* 

3120,05* 

31 30,00 

input 

3130,00* 

3130,01* 

3130,02 

3130,02* 

3160,00 

3160.04* 

3170,00* 

input 

3170.01 

input 

ICONS 

3070,01 

3070.02 

input 

ICPT 

3610.07* 

4660,02 

4690,02 

input 

!c*o 

,02 

3100,00 

3120,06 

3140,00* 

3620,00 

3640,01 

5660,00 

input 
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3660.01 

3660,01* 

3670,01 

3670.02 

3680,03 

3755, *02 

3760.00 

INCUT 

3773.03 

4130,04 

4720.00 

4730.01 

4740,02 

4750.00 

4760, 0  1 

INOUT 

aeoo.oi 

4850,00* 

4850,00* 

I  MOOT 

I  D0  4  3 

4240,09* 

4240,11 

IsnijT 

IDCPT 

3820,00 

3820,01 

3820,01* 

4280.0? 

INHuT 

IDGST 

3000, 15* 

3260,00 

3370.01 

INDur 

TDI  V 

4240.03* 

4240.08* 

INCUT 

JOIvE 

3820,00 

4280,01* 

4280,02 

INCUT 

TOIvR 

4240, 06* 

4330,00 

TN0U7 

I  OPR 

4030,01 

4520,01 

INOUT 

I03HT 

3820,00 

4280,02 

4620.' 00* 

I  nhut 

JOT 

4730,01* 

4710,02 

4730,02 

4770,00 

4820,00* 

4840.00 

INOUT 

4840,00* 

INPUT 

IOV 

4240 , 02* 

INPUT 

IOVPR 

3070,01 

3070,02 

INPUT 

I0V3P 

3070,01 

3070,02 

INPuT 

!  E 

3790,00 

4130,01 

INOuT 

IECON 

3000,17* 

3790,01* 

4150,00 

INPUT 

IE  v 

4810,01* 

4800^00* 

INOUT 

IE  vvR 

3010,01* 

3325,01* 

3490,04 

4710,02* 

4790,00* 

I  NPuT 

IELCW 

3070,01 

3070,02 

3560,01 

3560,01* 

4410,05* 

4410.05* 

INOUT 

IkOOE 

3630,02 

3130,'  00* 

INOUT 

TL3T 

3010,06* 

3120,04 

3120,04* 

3120,07* 

3130,00 

3160,00* 

INOuT 

3610,10* 

3630,03 

3630,07* 

INPUT 

INCLOP 

3610,13 

3630,04 

3630,04* 

3755.00 

I  NPuT 

I  NU* 

3110,03 

INPUT 

IP 

3390.02* 

4030.00* 

4030,01 

4030,02 

4040,04 

4040,04* 

4050.00* 

INPUT 

4060,00 

4070,00 

4080,00 

4090,00 

4100,00 

4510,02* 

4520,01 

INPUT 

4320.02 

4530,04 

4540,00 

4550,01 

4570,00 

4570.01 

4580,01 

INOUT 

4600,00 

4600,01 

4620,01 

4620,03 

4630,02* 

INOUT 

IPER 

3430,03* 

3430,04= 

3430,04* 

3340,03 

INOUT 

IPFR4 

3000,19* 

3280,00 

3280,02* 

3280,02* 

3340,01 

3340.06 

INPUT 

3400,00 

3430,03 

INOuT 

IPNT 

3360.01 

3560,01* 

INPUT 

IPOw 

4030.01 

4320,01 

4370,00 

INPUT 

IPR 

4340.02* 

INnuT 

T  PPL 

3000,12* 

3260,00 

3370,01 

INPUT 

TPRN 

3610.08* 

4120.01 

INPUT 

TPRNT 

3000.11* 

3260,00 

3370,01 

3560,01 

3560,01* 

INPUT 

IPwKrt 

3000,13* 

3260,00 

3370,01 

INOuT 

IP«PR 

3070,01 

3070,02 

INPUT 

TPwR 

3370.00* 

4340.01* 

INPUT 

I  p  4  ¥  R 

3010 ,02* 

4050,01* 

4620,00 

4710,03* 

4830,00* 

INPUT 

IRES 

4190,03* 

4690  .'06 

INPUT 

I  P  F.  S  M 

4 1 90 .06* 

4210,04 

4210,06 

4660,09 

4660,09* 

4690.10 

INPUT 

IRESP 

4630 ,03* 

INPUT 

IRG 

3270,00 

3380,06* 

INOUT 

JRPT 

3890,02 

3900.03* 

INOuT 

ISFRV 

4690 , 1 0* 

INOUT 

•ISIGN 

4690,10 

INPUT 

I  S«RV 

3000, 16* 

3270,01* 

3380,05* 

INPUT 

T  3PCM 

3860 , 0  1 

4430,02 

INPUT 

tSVSP 

4650,04* 

INOUT 

T  T 

4660,08 

4660,09 

4660,09* 

4710,09* 

4740,01 

4740.03* 

4740,04 

INOuT 

U»>60,00* 

4860,01 

INOUT 

\  T  E  M  P 

4320,03* 

«320,04 

4660,06* 

4660,07 

4660,09 

4660  ,'09s 

4690,04* 

INPUT 

4690,03 

4880,02* 

4880,03 

INOUT 

I  T MP 

3340 , 05* 

3360,03 

3610,04 

3610.08 

3660,04* 

3670,00* 

3670.03 

INPUT 

3755,01* 

3760,00 

3775,00 

3775,01 

3820,02* 

3820,03 

3820,04 

I  nput 

41 30,03* 

4130.04 

4190,04* 

4190,05 

4190,06* 

4190,08* 

4190,09 

I  NOUT 

4190,10* 

4210,02* 

4210,05* 

4210,06 

4220,01 

4220, (15* 

4220,08* 

INOuT 

4220,09 

4230.01 

4290,02* 

4290,03 

4300.01 

4320 . 02* 

4320.05= 

INOUT 

4330,00 

4330,01 

4690,06* 

4690,07* 

4690,08 

4690,10* 

INOuT 

TIp 

«200,02* 

4200,03 

4200,04* 

4200,05* 

4210,00* 

4210,03 

4220,04* 

INPUT 

4?20 ,06 

4240,04* 

4240,05 

4240,06= 

4650,02* 

4650,03* 

<4*4  0,07* 

INPUT 

4660,08 

4690.08* 

4690,09 

4690 , 10  = 

INOuT 

I  TSPV 

.02 

.54 

3800,00 

4170.01 

4660 , 06 

3  4  9  o  0  2 

INOUT 

luNT  r 

i"00,03* 

3200,00 

3210.03* 

3370,00 

3485,00= 

JU90.02* 

INPUT 

IljPOT 

3000.14* 

3260,00 

3370,01 

INOUT 

I'jPGI 

4200,04* 

INOuT 

I  0  P  S I 

4190,10* 

4220,07 

4220,09 

35  4  0  no 

INPUT 

I* 

3010,04* 

3330,00* 

3330,01 

3330,02 

3530,01 

3580,01 

I  NPuT 

m  7  m 
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3590,00* 

INCUT 

IYR 

3070,01 

3070.02 

INCUT 

J 

3340.12 

4150.01 

INCUT 

J8RN 

3160,05a 

3280  ,’o3» 

3300,01a 

3340,00 

INOUT 

JJ 

3340.03* 

3340, tla 

3340,12 

inout 

JK 

1340, 08a 

3340,13a 

3340,14a 

3340,15a 

INOUT 

JL 

3610,12a 

3660 , 0 1 

3660,01a 

1890,01 

INCUT 

JUPOI 

3070,01 

3070.02 

3610,13 

4200,01 

INCUT 

3340,02a 

3340, 07a 

3340,09 

3340, 10» 

3360,01* 

3360,02 

3360,03* 

INCUT 

3430,01a 

3430 ,06a 

3490,01 

3610,11a 

3630,05a 

3630.06 

3990,00 

incut 

4000,00 

4010,00 

4020,00 

4060,00 

4070,00 

4080,00 

4090,00 

INOUT 

4100,00 

4110,00 

4130,04 

4170.01 

4210,03 

4210,04 

4210,06 

INOUT 

4220,06 

4220.07 

4220,09 

4320,04 

4330,00 

4450,02* 

4460,00 

INCUT 

4470,01 

4480.01 

4490,01 

4500,01 

4540,00 

4550,01 

4570,01 

INCUT 

4580,01 

4600.01 

4660,05 

4660,06 

4690,05 

4690,06 

4690,10 

INCUT 

4880,03 

4880,04a 

INCUT 

ftBR 

3700,02a 

37 1 0 ,00a 

3710,01 

INOUT 

KCPT 

3570,05 

3610.05 

4880.02 

INOUT 

K0AY3 

3000,23 

incut 

KOI  V 

3740.03 

3810,01" 

INOUT 

KDT 

4710,05a 

4730,02 

4730,02a 

4770,00 

4770,01* 

4820,00 

4820,00* 

INCUT 

4840 ,00 

4840.00a 

INPUT 

KOOE 

4730.04a 

INCUT 

KPER 

4880,02 

INCUT 

KPwR 

4040,02 

incut 

K  Pk*R  S 

3580,01 

4040,06a 

TNCUT 

KRES 

3560,02a 

3860.00 

INOUT 

KSERV 

4600,09 

inout 

KUPOI 

4200, 05a 

INOUT 

KX 

3590, Ola 

3775. 02« 

3775,03a 

3775,04a 

INOUT 

L 

3680,02 

3680.03 

3680,04 

3880,00 

3890,00* 

3890,02 

3^00,01* 

INCUT 

3900,04 

3900,06a 

3920,01 

3940,01a 

3960,01 

5960.02 

3960,04* 

INOUT 

4450,01 

4450.02 

INOUT 

LSV 

.02 

3890,00* 

3900,01a 

3960,02 

incut 

L  TOP 

1670,04 

incut 

LTRC 

3120.03 

inout 

LTRJ 

3160,01 

incut 

M 

3560,02a 

3560.03a 

3570.00a 

3570,05 

3570,06* 

3580.00* 

3610,04 

inout 

3610,05 

3610.07 

3610,08a 

3720,00 

3730,03a 

3730,04a 

3740,00* 

incut 

3755.02 

3775, 00a 

3790,00 

3800,00 

3800.01* 

3820.00 

3820.01 

incut 

3820.01a 

3820.02 

3820,03 

3820,04 

3830.00 

3840,00 

3840, Ola 

TNCUT 

3850.00 

3860 , nfla 

3860,01 

3890,02 

3900,04 

3900,06* 

3920,01 

INCUT 

3940, Ola 

3960,04a 

3990,00 

4000,00 

4010,00 

4020,00 

4110,00 

TNCUT 

4120.01 

4120.02 

4130,02 

4130,03 

4150,01 

4170.01 

4190.01 

INCUT 

4190,01a 

4190.03a 

4190,04 

4190, 05» 

4190,06* 

4190.10 

4200,04 

TNOUT 

4210,00 

4210.04 

4210.06 

4220.04 

4220,07 

4220,09 

4240,02 

INOUT 

4240.03" 

4240. oa 

4240,05a 

4240,06a 

4240,08a 

4280.01* 

4260,02 

INCUT 

4290.02 

4290.03 

4300,01 

4320,00 

4320,03 

4330,00 

4340.01* 

TNOUT 

4340,02 

"350.01 

4370,00a 

4370,01 

4390,01 

4410.02* 

4410,03* 

INOUT 

4410,04a 

4410.05 

4410,05a 

4420,02a 

4420,04a 

4420,05a 

4430, “Of 

TNOUT 

4430,02 

4460,00 

4470,01 

4480,01 

4490,01 

4500,01 

4650,03 

INCUT 

4650,048 

4660,02a 

4660,03 

4660,06 

4660,09 

4660,09a 

4690,02a 

INPUT 

4690,03 

4690,04 

4690,06 

4690,10 

4800,01 

4810,01* 

TNOUT 

“01  v 

3610,00a 

3740,04a 

3810, 00« 

3810, 00» 

3810,02* 

4120,01 

4240,00 

TNOUT 

“OMST 

3610,04 

3610,05 

4120,01 

4190,07a 

4190,08 

4190,09a 

4190,10a 

TNCUT 

4200,00a 

4200,02 

4200,03a 

4200,04a 

4210,01 

4210,01* 

4210,02 

INCUT 

4210,06 

4220.01 

4220,03 

4220,05 

4220,09 

4230,01 

4320,01 

INCUT 

4320,02 

4330,00 

4330,01a 

4660,00* 

TNOUT 

“E  T PC 

3000,04a 

3200,00 

3220,00 

3370,00 

3380,04 

3380,04* 

incut 

“PS  Y  S 

4030,02 

4040, 05a 

4040,05a 

4520,02 

4650,00 

4650,01 « 

4650,02 

INCUT 

4650.03a 

4650,04 

incut 

“PwR 

3610,02a 

4040,03a 

4120,01 

4340,00* 

4510,01 

INCUT 

“Q 

3775,03a 

INPUT 

“RES 

3610, nia 

3870.01a 

4120,01 

4190,00 

4200.01* 

4220.02 

4320,00 

incut 

4420,01 

INPUT 

“T 

3890,02 

TNOUT 

“X 

4660,01 

4660  .  i)2 

4690,01 

4690,02 

TNOUT 

N 

3890,01 

intut 

MCPT 

3570.018 

3610,06a 

3610.07a 

4660,0 1 

4690,01 

INCUT 

nc  yCL 

3490,03a 

TNCUT 

mDa  vg 

3000.23a 

3310,00 

3340,05 

3340, 10» 

3340,14* 

3360.01* 

3420,01a 

TNOUT 

3430,05 

3430,06 

4630,01 

INCUT 

•  ft. 
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NO!  V 

3575.03* 

3740,02* 

3810,03 

3810,04 

4240,07 

4240,08 

4270,02* 

4280,00* 

NDIVF 

3320,00 

3820,02 

NOIVR 

4240,04 

4240,05* 

NO  V  yR 

UT10.07« 

4820.00 

*FLOw 

471 0,06* 

4780,00* 

nFL» 

3775,00* 

4120.02 

Ml 

3070,01 

3070.02 

nuf 

3560,00* 

NLYR 

4710,08* 

4850,00 

NPER 

3000,18b 

3280,00 

3330,01 

3340,06 

3430,04a 

3500,00 

3810,05 

3810,05 

3*20,01 

3940,00 

4350,01 

4370,01 

4460,00 

4620,01 

NFwR 

3570,04a 

4040,01* 

NP  »iR  5 

3010,03a 

3330,02* 

NQYR 

4710,04a 

4840,00 

NRES 

3570.02" 

4190,02* 

NRE3P 

3590,00* 

4650,01* 

NRESR 

4190,01 

4190,01* 

4210,02 

4220,01 

NSERV 

3560,03* 

4690,07* 

N3T0P 

.54 

NTAB 

3680,01* 

3680,04* 

NTS 

3610,03* 

3800,00 

4660,03* 

4660,04 

NT9RV 

.02 

.54 

NUPQI 

3570,06* 

4200,02 

NUP3T 

3380,00* 

4190.08 

NVR8 

3070,01 

3070,02 

CVLOO 

4030.01 

4040.04 

pfmax 

4030,02 

4520,02 

pkPwr 

4080,00 

4570,01 

POWR 

4030,00* 

4620,01 

PkRMX 

4030.01 

4520,01 

PWR3 

3330.01 

3540,00 

QCAP 

4010,00 

4490,01 

ODIV 

3740,06* 

3810,03 

4240,10 

4260,00 

Q0IV3 

4280,00* 

QOV 

3720.00 

3740,01* 

QLKG 

3860.01 

4430.02 

QM2 

3720.00 

3740,00 

QMIn 

3730,04* 

3830,00 

QRIN2 

3740,00* 

3840,00 

OMN 

3720,00 

3730,04 

QMX 

3730,03* 

3850,00 

QMXX 

3720,00 

3730,01 

QT 

4060,00 

4540,00 

QUNIT 

3000, OB* 

3200,00 

RTIO 

3775,04* 

RTIOD 

4240,01* 

4240,10* 

3TOR 

3990,00 

4470,01 

STORt 

4430,00* 

4430,02 

3TORA 

4420,04* 

4430,00 

3TORB 

4420,05* 

3TORL 

3890,02 

3900,04 

3Y0YS 

3490,01* 

3490,02 

TEMP 

3340,04* 

3360,02 

title 

3010,08 

3030,00 

TL 

4070,00 

4550,01 

TLMEL 

4030,01 

4520,01 

TMP 

4410,01* 

4410,02 

TMPP 

3755,03* 

3760,00 

TMPR 

4410,05 

4410,05* 

VL**T 

3220,02 

VOLU 

3000.10 

3210,07 

3740,03 

3740.06* 

3810,00 

3810,05 

3810.05* 

4240,01* 

4240,09* 

4240.10* 

4240.1  1 

4280,02 

4290,02 

4320,00 

4120,02 

4320,03 

4820,00* 

4870,01* 

4870.02* 

4130.02 

4110.03 

3880,00 

3960,01 

4450,01 

4850,00* 

3280.01 

3280,01* 

3290,00 

3400,00* 

3410,0! 

3420.01 

3510,01 

1540,00 

3730,02* 

3810,00 

3840,00 

1850,00 

3960,01 

4050.00 

4260,00 

4390,01 

4410,00 

4420,02* 

4620,02 

4870,00 

4040,02 

4340,01 

4340,02* 

3530.00 

3530,01 

4040,05* 

4840,00* 

4870.03* 

4650,02 

4190,04 

4190,05* 

4210,00 

4660,07 

4690,08 

4690,03 

4690,04 

4470.01 

4480.01 

4490,01 

3800,01 

4660,05 

4120,01 

4170,00 

3800,01* 

4200.03* 

4660,03 

4880,04* 

4190,09* 

4220.04 

4220,05 

4040,04* 

4520,01 

4620,03 

4630,02 

4630.02* 

3610,04 

3810,05 

3810.05* 

4260,00 

4270,02* 

4280,00 

3740,06 

3810,06* 

4120.02 

3640,01* 

4120.02 

4170,00* 

4150,01 

4410,03* 

4410,05 

4370,01 

4410,04* 

3830,01* 

4120,02 

4350,00* 

4390,01 

4410,02* 

3730,01* 

3730,03 

3650,01* 

3210,06* 

3220,01* 

3370,00 

4240,11 

3900,06* 

3490,02 

3920,01  3940,01* 

3900,04* 

3900,06 

3040,00 

3060,02 

4530.04 

4410,03 

4410,04 

3775,04 

4130,04 

3810.00* 

3810,01* 

Input 

4240  ,02* 

4240,03 

TNnuT 

4260.00 

4260.00 

TNnuT 

INPUT 

INPUT 

4330.01* 

INPUT 

INPUT 

INPUT 

Input 

4450.0? 

INPUT 

INPUT 

Input 

3310.00 

3320.00 

I  npuT 

3430,02 

3430.04 

Input 

3740.05 

3810.04 

iNnuT 

3900,05 

3920,00 

Input 

4260,00 

4270,01 

INPUT 

4420,05= 

4440,03 

INPUT 

Input 

4510,02 

INPUT 

4040.05* 

4040,06* 

Input 

INPUT 

INPUT 

INPUT 

4210.01 

4210.01* 

Input 

INPUT 

INPUT 

INOUT 

4500  ^0  1 

INPUT 

4170.01 

4180.01* 

I  NPUT 
INPUT 
iNflUT 
INPUT 

4230.01 

INPUT 

INPUT 

INPUT 

Input 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

4240.07* 

4240,09 

INPUT 

INPUT 

INPUT 

4260.00* 

INPUT 

INPUT 

INPUT 

4410,05 

INPUT 

INPUT 

INPUT 

TNPUT 

4120.02 

4390,00* 

INPUT 

INPUT 

INPUT 

Input 

INPUT 

INPUT 

INPUT 

INPUT 

INOUT 

3960,04* 

4460,00 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

Input 

INPUT 

INPUT 

•  9* 
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VUNIT 

3000.10* 

3200,01 

1210,07* 

3220.02* 

1370,01 

TNDUT 

*L 

5230,07b 

5240.02 

5240,02* 

5240,03* 

5240.03* 

5260.00 

5260,05 

COMP 

5650,05b 

5660,01* 

5670,01* 

5680,00 

5690,03* 

5690,04 

5700,00* 

ro  nr 

5710,00 

5710,00* 

5720,02 

5780,00* 

5780,01* 

5820,06 

5850,03 

COMP 

5050 ,05 

5900.01 

6410,08* 

6410,09 

COMP 

ANDYS 

.48 

.49 

.50 

.52 

COMP 

AREA 

5130.03 

COMP 

ARFAV 

5130,03b 

5130.07 

COMP 

ATMP 

6310,12b 

6310.13 

6310,11* 

6410,01* 

6410,05 

6410,09 

COMP 

CEVAP 

5130,07 

COMP 

CFLOD 

5230,02 

5730,02 

5710.02 

COMP 

CKW 

,44* 

.45 

,«5* 

5370,01 

5450,02 

5470.09 

6130,04 

COMP 

CLOCl 

5230,02 

5230,11 

5580,05 

5730,02 

5730,02 

6100,08 

6100,08 

COMP 

CnST 

,52b 

5170.01 

5370,03 

5370.03 

6140,00 

6160,08 

6160,09 

COMP 

6220,08 

6230.07 

6100,02 

6310,1? 

COM? 

CNTRL 

6410,00s 

6410.06* 

6410,09 

COMP 

CONST 

.50 

COMP 

CPwR 

5370,01s 

5170.02 

5450,02* 

5450,03 

5470.09* 

5470,10 

6130, nys 

COMP 

6130,07 

COMP 

CQOEl 

6030,01 

6050.01 

6050,02 

6050,02 

6060,01 

6080.01 

6080,02 

CO“P 

6080,02 

COMP 

COS 

,50a 

.51 

5990,01 

COMP 

CSO 

,5l« 

5230,13 

5210,11 

5400,00 

COMP 

CT 

,49b 

6280,03 

6280,03 

6430,09 

6440,00 

6440,01 

6440,02 

COMP 

6440,03 

6440.04 

6440,05 

6440,06 

6440,07 

6450,04 

6450,05 

COMP 

6450,13 

COMP 

CTX 

6280,02b 

6280,03 

6280,03* 

6300,04 

6300,05 

6300,06 

6300.18 

CQMP 

6310,00 

6320,01 

6320,02 

6320,05 

6320,09 

COMP 

OFUNC 

5170,00 

5180,00 

5190,00 

COMP 

OPARA 

5170,00 

5180.00 

5190,00 

CG“P 

EFC  Y 

5130.16 

CO“P 

FFFCY 

5130,15 

5370,03 

5370,03* 

5450,04 

5450,04* 

5470,11 

5470,11= 

COMP 

6130,08a 

6130,08a 

COMP 

FFY 

5130, 16b 

5370.01 

5370,03 

5370,03 

5450,02 

5450,04 

5450,04 

CO“P 

5470,09 

5470.11 

5470.11 

6130,04 

6130,08 

6130,08 

COMP 

FL 

5130,11 

6020,03 

COMP 

FLEv 

5130,11* 

5130.12 

5130,12* 

5360. 00 

5370,00 

6020.03* 

COMP 

FVAPO 

5010,00 

CO“P 

F  VP 

5130,05 

5130.05 

6340,03* 

6340,04 

COMP 

EVPO 

5010,00* 

5130,04 

COMP 

FVTHP 

.03 

5130.07* 

5230.13 

5230,13 

5400,00 

5990.01 

5*90,03* 

COMP 

6340,03 

COMP 

HEAD 

5370,00* 

5370.02 

5450,03 

5470,10 

6130,07 

COMP 

T 

,46* 

.48 

5000,00 

5010,00 

5010,01 

5130,09 

5130.05 

COMP 

5130,11b 

5130,12 

5130,12* 

5140.04* 

5140,05* 

5140.06 

5150,03* 

COMP 

5150, 04a 

5150,05* 

5160,00 

5170,00 

5180.00 

5200.00 

5200,00* 

COMP 

5200,01* 

5200.02* 

5210,05 

5210.01 

5230,01* 

5230,02 

5230,11 

COMP 

5230,12 

5210.12 

5280,03 

5280,03 

5350,04 

5350,06 

5370,00 

COMP 

5370,02 

5370,03 

5370,03 

5370,05 

5370,06* 

5380,00* 

5400,00 

COMP 

5410,00* 

5410,02* 

5410,03 

5410,06 

5410,07* 

5410,06 

5410,09* 

COMP 

5510,00 

5510,01 

5530,01 

5540,04* 

5580,05 

5590,02 

5590,08* 

COMP 

5610,01* 

5620.07 

5620.07* 

5620.08* 

5650,00 

5690,00 

5730,03 

COMP 

5730.05 

5790,00 

5800,01 

5800,02 

5810,00* 

6810.01* 

5820,00 

COMP 

5820,00* 

5820,06 

5860,00 

5880,02* 

5880,03* 

5890,00* 

5890,01* 

COMP 

5890,02* 

5900,01 

5920,05 

5930,01* 

5930,02* 

5930,04 

5930,05 

COMP 

5930 ,06* 

5930,07a 

5940,03* 

5940,04a 

59*0 ,00* 

5960,01 

5970,04* 

COMP 

5960,00" 

5980.01 

5980,01* 

5990.01* 

5990,02* 

5990.03 

5990,04* 

CO“P 

6000,00 

6000,03 

6020,02 

6020,02 

6020,03* 

6020,06 

6060,01 

COMP 

6080.02 

6080.02 

6090,00* 

6100,04 

6100,04* 

6100,13 

6110,00 

CQMP 

6110,02 

6120,00* 

6130,06 

6130,06* 

6130,07* 

6130,06 

6130,08* 

COMP 

6130.09 

6130,11 

6130,11* 

6140,00* 

6150,03 

6160.07 

6160,08 

COMP 

61 60, 12a 

6160,12* 

6 1 60 , 1 3* 

6160,13* 

6160,15 

6160,21 

6160, ?1* 

COMP 

6180,01 

6180.02 

6210,04* 

6210,05 

6210,07 

6210,07* 

6220,09 

COMP 

6230.00 

6230,01 

6230,02 

6210,07* 

6230,09 

6210,09* 

6250,00 

COMP 

6250.05* 

6250.07 

6250,07* 

6300,03 

6300,03* 

6300,04 

6300,05 

C0“P 

6300,06 

6300,07* 

6300,08* 

6300,09* 

6300,09* 

6300,10* 

6300,1 0* 

COMP 

6300,11* 

6300,11* 

6300,12* 

6300,12* 

6300,13* 

6300,13* 

6300, 14* 

COMP 

6300,14* 

6100, 17 

6300,18 

6310,00 

6310,04 

6310,08* 

6310,10 

COMP 

6310,11* 

6310,14* 

6320.01 

6320,02 

6320,03* 

6320,04* 

6320,04* 

COMP 

6320.05 

6320.06 

6120.06* 

6320,07* 

6320,07* 

6320.0#* 

6320,08* 

COMP 

6320.09 

6140.03* 

6340,04 

6140,05 

6340,08 

6340.09 

6350,02* 

COMP 

6360,00 

6360,00* 

6360,01* 

6360,01* 

6370,00* 

6370,00* 

6370,01* 

COMP 

FXHIBIT 
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6370, 01* 

6380.01* 

6380.01* 

6380.02* 

6380,02* 

6390^01* 

6390,01* 

COMP 

6390.02* 

6390,02* 

6400,00 

6410,00* 

6410.03 

6410.04 

6410,06* 

COMP 

0410,09 

6430,00 

6430,01 

6UJ0.01* 

6430,02* 

6430^02* 

6430,03* 

COMP 

6430,03* 

6430,05* 

6010,06 

6430,06* 

6430,07* 

6430^07* 

6430,08* 

COMP 

6430,00a 

6430,09 

6440,00 

6440,01 

6440,02 

6440,03 

6440,04 

COMP 

6440.05 

6440,06 

6440,07 

6450,03* 

6450.04 

6450,05 

6450,07* 

COMP 

6450,08* 

6450,08* 

6450.10 

6450,10* 

6450,11* 

6450.11* 

6450,12* 

COMP 

6450,12* 

6450,15 

COMP 

ICONS 

5230.20* 

5230,20* 

5440.02 

5440,02* 

5530,06* 

5530 .06* 

COMP 

ICPT 

5060,02 

5140,02 

5940,02 

6100,03 

6140,01 

COMP 

IC3C 

5140,05* 

5380,00* 

5810,00* 

5090,00* 

CO“P 

TO 

5020,08* 

5020,09* 

5020,10 

5020,10* 

5020,11* 

5020,12 

5020,1 3* 

COMP 

5020.14 

5020.14* 

5140,09* 

5140,10 

5150,00* 

5150,01 

5150,03* 

eo«p 

5150,04* 

5150,05* 

5160,00 

5200,00 

5200.00* 

5200,01* 

5200,02* 

COMP 

5210,03* 

5210,04 

5210,04* 

5210,05 

5280,01* 

5280,03 

5280,03* 

CO-P 

5410,04* 

5410,04* 

5415.05* 

5410,06 

5410,07* 

5410,00 

5440.06* 

COMP 

5530,01 

5530,01* 

5540,01* 

5540,02 

5540,04* 

5590,05* 

5590,00 

CC-P 

5590,08* 

5620,06* 

5620,07 

5620,07* 

5620,08* 

5930,03* 

5930.04 

COMP 

5940,06* 

5940,07 

5950,00* 

5960,00 

5960.01 

6450,02 

6450,03* 

COMP 

6450,04* 

6450,05* 

6450.06 

6450,07* 

6450.00 

6450.08* 

6450,09 

COMP 

6450,10 

6450,10* 

6450,11* 

6450, 1  1  = 

6450,12* 

6450,12* 

6450 , 1 3* 

COMP 

I0B4S 

5150,01 

COMP 

iocpt 

5160,02 

COMP 

IDGST 

5610,00 

5820,05* 

5900,00* 

COMP 

JOIV 

5020,09 

5140,09 

5150,02 

5210,03 

5280,01 

544  0  'nfe 

5540,01 

CO«P 

5590,05 

5620,01* 

5620,06 

5930,02 

5930,03 

5940.06 

COMP 

IDIVF 

5160,01 

5160,03 

COMP 

IPTVP 

5210.02 

COMP 

iops 

5350,00* 

5350,01 

COMP 

IOSHT 

6450.10 

6450,10* 

COMP 

IOV 

6450.09 

COMP 

IOVPR 

5620,03 

5620,03* 

COMP 

iovsp 

5530,07* 

5590,01* 

COMP 

IEv 

5130,05 

5130,05* 

COMP 

IFC 

5650.01* 

5720,03* 

5880.00* 

5910,01 

COMP 

*1 NTPOL 

3170.00 

5180.00 

5190,00 

COMP 

IOPtP 

.03 

5420,03* 

5430,01 

5440,16 

5470,00 

5470,00* 

COMP 

IP 

.54 

.55* 

5000,00 

5130,14* 

5130,15 

5  130.’  16* 

5200,07* 

COMP 

5280,08* 

5280,10 

5300.01 

5300,02 

5330,00 

5330.01 

5330,02* 

COMP 

5340.00* 

5350,00 

5350.01 

5350,02 

5350,03 

5350,03 

5360.00* 

COMP 

5360.01 

5360,01* 

5360.02* 

5360.02* 

5370,00* 

5370.01 

5370.02 

COMP 

5370.03 

5370.03* 

5370.08 

5450,01* 

5450.02 

5450,'  03 

5450.04 

COMP 

5450,04* 

5470,08* 

5470,09 

5470,10 

5470.11 

547n.il* 

5500.00* 

CO“P 

5500.02 

6020,05* 

6020,06 

6020,07 

6030,01 

6  0  5  0  0  l 

6060.02 

COMP 

6050.02 

6060,01 

6080,01 

6080,02 

6080,02 

6090,00* 

6130,02 

CQMP 

6130.03 

6130,04 

6130.07s 

6130,08* 

6130.08* 

6130.09* 

6130.10 

COMP 

6130,11 

6130,11* 

6140,00* 

6160,06* 

6160,07 

6160,00 

6160,09 

CQMP 

6160,12* 

6160,12* 

6160,13* 

6160,13* 

6160,15 

6160.21 

6160,21* 

COMP 

6100.01 

6180,02 

6210,01s 

6210,04* 

6210,05 

621  0  0 6 * 

6210,07 

COMP 

6210,07* 

6220,07* 

6220,08 

6220,09 

6230,00 

6230.06* 

6230,07* 

COMP 

6230,08* 

6230,09 

6230,09* 

6250,04* 

6250,05* 

6250  ^06* 

6250,07 

COMP 

6250,07* 

6300,00 

6300,01 

6300,02 

6300,03 

6300,03* 

6300,04= 

COMP 

6300,05* 

6300,06* 

6300,07* 

6300,08* 

6300,09 

6300,09* 

6300,10* 

COMP 

6300, 10* 

6300,11* 

6100, 1 1* 

6300,12* 

6300,12* 

6300,1 3* 

6300,13* 

COMP 

6300.14* 

6100, 14* 

6300,  t  7 

6300,18* 

6310,00* 

631 0,09* 

6310,10 

COMP 

6310.12 

COMP 

IPER 

5010,01 

CO-P 

IPFPA 

5020.03 

eo«p 

I  PO« 

6020,07 

6130,19* 

COMP 

IPR 

6130,03 

6300,01 

COMP 

IPMKw 

6280,03 

6280,03* 

COMP 

Ipmpp 

5440.22* 

5440,22* 

5690,01 

5690,0 1  * 

6160,10 

6160.18* 

CO“P 

JPWR 

5130,13* 

5110,14 

5280,06 

5280,07 

5450,00* 

5450.01 

5470,07* 

COMP 

5470,00 

5500,00 

6020,04* 

6020,05 

6160,06 

6210.03 

6220.07 

CO“P 

6230,06 

6250,04 

6310,09 

COMP 

ten 

.03 

.55* 

5500,02 

62t  0,06* 

6210.07 

621  0  .' 0  7 * 

6230,08* 

CQMP 

6230,09 

6230,09* 

6250, 06* 

6250,07 

6250.07* 

COMP 

IR 

5210,15* 

5230.16 

5230.1 7 

5230, 1* 

5230.10* 

5230.19 

5230,19* 

CQMP 

5230,20* 

5230,20* 

5230,21* 

5230,21* 

5230,22* 

5260,02* 

5260,03 

CQMP 

8260,05* 

5260,04* 

5260 ,05s 

5470,03* 

5470 ,  "6 

3490 .00 

5500,05* 

CQMP 

5500,06 

5500,06* 

5510,00* 

5500,07* 

5590,00 

5700,03* 

5780,04 

COMP 

070A.  04* 

5780,05 

5700,07 

570a, 1 0 

5«00  ,  00 

S8O0. 01 

5000,02 

CO“P 

-1 1« 
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58tD,00« 

5810,01* 

5820,00 

5820.00* 

3820,01* 

5820,02 

5820,02* 

COMP 

5820, 63* 

5820,03* 

5620,04* 

5820,04* 

5820,06 

3650.01* 

5850,02 

COMP 

5850,02* 

5850,06 

5850,07 

5850,07 

5850,08 

5630.10 

5850,11 

COMP 

5850,13 

5870,00* 

5870,01* 

5880,01* 

5880.02 

5880.03 

5660,00* 

COMP 

5860,01* 

5860,02* 

5600,01 

5670,03* 

5670.04 

5680,00 

6100,12* 

COMP 

6100.13 

6110.00 

6110,06* 

6120,00* 

COMP 

!R* 

5420,01* 

5420,02 

5420,03* 

5430,00* 

5430,01 

5440,04* 

5440,05 

COMP 

5440,05* 

5440,06 

5440,07 

5440,10 

5440,13* 

5440,14* 

5440,15* 

COMP 

5440,16* 

5440.17* 

5440,18* 

5440,18* 

5440.20 

5440.21 

5440,21* 

COMP 

5440,22* 

5440 , 22* 

5450,00* 

5430.01 

5450,03 

5450,04 

5450,04 

COMP 

5450,05* 

3450,05* 

5470,00 

5470,00* 

5470,03 

3470,06* 

5470,07* 

COMP 

5470.08 

5470,10 

5470,1  1 

3470.1 1 

5470,12* 

5470.12* 

5460,00 

CQMP 

5500,00 

5500,01 

5500,03 

5500,05 

5520,00 

5520,00* 

5520,02* 

roMP 

5520,02* 

5520.03* 

5520 ,03* 

5520,04* 

5520,04* 

5530.02 

5530,03 

COMP 

5530,03* 

5530,04* 

5530,04* 

5530,05* 

5530,06* 

5530.06* 

5530.08* 

COMP 

5530,08* 

5540,00* 

5S40.01 

5540.03 

5540,05* 

5550,00* 

5550,01* 

COMP 

5560,00* 

5560,00* 

5780,10* 

5760,00 

5850,13* 

5860.00 

5620.04* 

COMP 

5620,05 

COMP 

IRES 

5080,05* 

5230,04* 

5230,04* 

5230,12 

5210,12* 

5280,00 

5580,01 

COMP 

5620  , 06* 

5630,02* 

5630,02* 

5730,02 

5730,02* 

5920,00 

5680,01* 

COMP 

5680.01* 

5660.00* 

6100,08 

6100,08* 

6340.02 

COMP 

IRES* 

5260.02 

5420.01 

5440,04 

5500,05 

5780,03 

5650,01 

COMP 

IRESP 

6160.05 

6210.02 

6220,06 

6230,05 

6250,03 

6310,08 

COMP 

ISHDV 

5020,08 

COMP 

I3MQ 

5040,02 

5050.02 

COMP 

!3HR 

5010,04 

COMP 

ISPER 

5010,01 

5020.03 

COMP 

ISRCH 

5530,04* 

5530.04* 

COMP 

ISVSR 

5440,16* 

5300,01 

6300,15 

eoMP 

ITEMp 

3210,02* 

5210.03 

5280,06* 

3260,00* 

5370,07* 

6150,02* 

6160,04 

COMP 

6210.01 

6220,05 

6230,04 

6250,02 

6310,06* 

6310,07 

COMP 

ITMP 

5080.07* 

5080,08 

5150,01* 

5130,02* 

5150,03 

5150,04 

52 1  <1 , 0  0* 

COMP 

5210,01 

5230,05* 

5230,06 

5230,14 

5350,01* 

5360,00 

5500.03* 

COMP 

5500,04 

5580,02* 

5580,06 

5780.07* 

5780,08 

5760.06 

5650,11* 

COMP 

5850,12 

5620.02* 

5620.03 

6000.01 

6000,02 

6100.02* 

6100,03 

COMP 

T  TP 

5160.02* 

5170,00 

5180,00 

5190.00 

5720,00* 

5720.01 

5730.01* 

COMP 

5730,06 

5710,10 

5730,11* 

5730.12 

5780,06 

5780,10 

5850,12 

COMP 

5850.  13 

5620.03 

5620,04 

6160.17* 

6160,18 

6160,18* 

6160,16* 

COMP 

6160.20 

6340.07* 

6340.09 

COMP 

IUPST 

5230,15 

5470.03 

5580.07 

3780,10 

5850.13 

5620.04 

5670.03 

COMP 

6100,12 

6110.06 

COM  P 

IX 

5020,03* 

5020,04 

5020,04* 

5020,05* 

5020, OS* 

5020.11* 

5020,12* 

COMP 

5020.13* 

5020.14a 

5020,14* 

5040,03 

5040,04 

5040,04* 

5050.03 

COMP 

5050,03* 

5350,04* 

5350.06* 

5350.07 

5350,07* 

5360.00 

5440,12 

COMP 

5440,13* 

5440,15* 

5440.16 

5440,17* 

5440,18 

5440. 18* 

5440.21 

CO“P 

5440,21* 

5440  "2* 

5440,22* 

5450,05* 

5450,05* 

5470.05 

5470. "6* 

COMP 

5470,12* 

547  -  |?« 

6150,01* 

6150,02 

6150,03 

6160,05 

6160,15 

COMP 

6160,20 

6l7t,00* 

6210,02 

6210,04 

6210,07 

6210,07* 

6220,06 

COMP 

6230,01 

6230,02 

6230.05 

6230,06 

6230,06* 

6250.00 

6250,03 

COMP 

6250,07 

6250.07* 

6280,05* 

6260,00* 

6300,15* 

6300,16 

6300,17* 

COMP 

6310,02* 

6310.03 

6310,06 

6310.08 

6320,02 

6320,03 

6320,04 

COMP 

6320,04* 

6320.07* 

6320,07* 

6320,08* 

6320,08* 

COMP 

J 

.01 

5130,12* 

5130,12* 

COMP 

K 

5020,02 

5020,03 

5080,08* 

5080,06 

5080,10 

5060,00* 

5130,01 

COMP 

5130.02 

5130,02 

5130,03 

5130,08 

3130,11 

3130,16 

5210,01 

COMP 

5210.02 

5230.14 

5230,15 

3260.01 

5260,02 

5300,00 

5300,01 

COMP 

5300,02 

5310.01* 

3320,00* 

5320.01 

5330,00 

5330.01 

5330,02 

ro«p 

5340,00 

5420.00 

5420,01 

3470,02* 

5470,03 

5500.04 

5500,05 

COMP 

5580,06 

5580,07 

5780,02 

5780,03 

5850,00 

5850,01 

5670,02 

COMP 

5670,03 

6000,02* 

6000,03 

6000,04 

6000,05* 

6010,01* 

6020,01 

CO“P 

6020,02 

6020,02 

6020,03 

6030.00 

6030,01 

6040,01* 

6050,01 

COMP 

6050,02 

6050,02 

6060,00 

6060,01 

607^,01* 

6080,01 

6080.02 

COMP 

6080,02 

6060,00 

6100,11 

6100.12 

61  10,05* 

6110.06 

6160,04 

COMP 

6160,05 

6160.07* 

6160,11* 

6160,11* 

6160,12 

6160,12 

6160,00 

CO"P 

6210,01 

6210.0? 

8220,05 

6220,06 

6230,04* 

6230,05 

6250,02* 

COMP 

6250,03 

6310.07 

6110,08 

cn«p 

K* 

5440,03* 

5440,04 

COMP 

KPwR 

6310,03 

CO“P 

** 

5020,07* 

5020.08 

5040,01 

5040,0? 

5050,01 

5050,02 

CO“P 

l 

5230,06 

5230.17 

5230,16* 

5230,16* 

5230,22* 

5240,01 

5?50 ,01* 

cnMP 

3*60,05 

8360.00* 

suoo.oo* 

5440,06* 

5440,10 

5440,13* 

5440,15* 

roMP 

5440, t  7* 

5440,  t  M 

3440, 1  a* 

5440 , 14* 

544O , 22* 

5440,22* 

5450,05* 

COMP 

*x«iniT  3 
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5450,05* 

5470,00 

5470.00* 

5«70, 06* 

5470,1 ?* 

5470.1?* 

5490,00 

CO-P 

ssoo.oi 

5500,02 

5510,00* 

5520,00 

5520,00* 

5520^01 = 

55?0 ,02* 

COMP 

S520.02* 

5520,03* 

5520, 03e 

5520,04* 

5520,04* 

5530.03 

5530 ,03* 

COMP 

5530. OR* 

5530,04* 

5530,06* 

5530,06* 

5540,00* 

5540.03 

5550,01* 

COMP 

5560,00 

556  0 ,0  0* 

5580,04s 

5580,05* 

5590,00* 

5590  ^01 

5590,04* 

COMP 

5590.07 

5590,10* 

5630,00* 

5b30 , 0 1  * 

5630,02 

5630.02* 

5650,02 

COMP 

5650,03 

5650,04 

5660,00 

5660,01 

5730,07= 

5730.09* 

5730,12 

CO“P 

5730,13 

5740,01* 

5750,01 

5750,0? 

5750,02 

5780,00 

5760.05 

COMP 

5550.03* 

5850,04 

5850,06 

5850,07* 

5850.07* 

6150  0  4 

6160,00= 

r  f)MP 

6160,14* 

6160,15 

6160,19* 

6170,00* 

6170.01* 

6190.0? 

6190,03 

COMP 

6100, OR 

6190,04* 

6200,01* 

6210,04 

6410,0? 

641 0.03 

64)0,04 

COMP 

6«10,06 

6410,08 

COMP 

LA 

5340,06* 

5550,00* 

CO-P 

ie*s 

5UR0.01* 

5440,02 

5440,02* 

CO-P 

lx 

5RR0.08 

5440,09 

5580,03 

5580,04 

CO“P 

M 

5010,04* 

5020,00 

5040,02* 

5040,03 

5040,04 

5040,04* 

5050,02* 

COMP 

5050,03 

5050,03* 

5080,02* 

5080,03 

5080,03= 

5080  .'04* 

5080,04* 

CO-P 

5080,05* 

5080,06 

5080 , 06* 

5080,09 

5080,1 0 

51 1 0  '0O 

5130,01 

rouP 

5130,02 

5130.02 

5130,01 

5130,05 

5130,05= 

5130^07* 

5130.08 

CO-P 

5130,03 

5130,09* 

5130,10* 

5130,10* 

5130,11* 

5130.1? 

5130,12* 

CO-P 

5130,13* 

5130.14 

5140,02* 

5140,03 

5140,04* 

5140,05* 

5140.06a 

CO“P 

5140,07* 

5140,08 

5140,09 

5160,01 

5160,02 

5160.03 

5170,00 

COMP 

5180,00 

5190,00 

5210,00 

5210,02 

5210,05* 

5  2  3  0  0  0 

5230,01 

COMP 

5230,01= 

5230,02* 

5230,03 

5230,03* 

5230,04* 

5230  '04* 

5230,05 

CO-P 

5210,11 

5230,12 

5230,12* 

5230,13 

5230,13 

5230  15 

5240.01 

COMP 

5240,03 

5240.03 

5260,02 

5260,04* 

5280,00 

5280.01 

5280,04* 

CO-P 

5280,06 

5280,07 

5300,01 

5330,01 

5370,00 

5370.0?* 

5370.03 

CO“P 

5370,03* 

5370,04 

5370,05 

5370,06* 

5380,00* 

5400.00* 

5400,01* 

CO«P 

5400,02* 

5400,03* 

5410,00* 

5410.01* 

5410,02* 

5410^03 

5410,07 

COMP 

5410,08* 

5410,09* 

5420,01 

5440,04 

5440,14* 

5500.01 

5520,00 

CO-P 

5520,00* 

5560,00 

5560,00* 

5580,01 

5580.02 

5580.05* 

5580,07 

CO-P 

5590,00* 

5590,02 

5590.03 

5590.03= 

5590,04* 

5590,05 

5590.07 

CO-P 

5590,09* 

5590,10* 

5610,01* 

5620,01* 

5620.02 

56?0 ,03 

5620.03 

COMP 

5620,06 

5620.09* 

5620,10* 

5620,11* 

5620,12 

5620.1?* 

5630,01* 

COMP 

5630,02 

5630,02* 

5640.01 

5640,01* 

5640,02* 

5640,03 

56U0.0J* 

CO-P 

5650.00 

5650.03 

5660,01 

5690,00 

5690.02* 

5690.03 

5730.02 

CO-P 

5730,02* 

5730,03 

5730,04 

5730.04* 

5730,05 

5730,06 

5730,10 

COMP 

3730.13 

5750,01 

5750.02 

5750,02 

5780,03 

5800.00 

5810.00 

COMP 

5850,01 

5880,01 

5890,00 

5920,00 

5920,02 

5920.00 

5930,01* 

COMP 

5930.02 

5930.03 

5930,04 

5930,05* 

5930,06* 

5930.07* 

5940.02* 

COMP 

5940,03* 

5940,04* 

5940,06 

5960,00* 

5970,00 

597  0.’ 0  1 

5970,03 

COMP 

5970,04* 

5980,00* 

5980,01 

5980,01* 

5990,00* 

5990,01* 

5990,02 

COMP 

5940,03* 

5990,04* 

6000,00* 

6000,03 

6000.04 

6020.01 

6020,02 

COMP 

6020.02 

6020,03* 

6020 ,04* 

6020,05 

6030,01 

6050.0? 

6850,02 

COMP 

6060,01 

6080.02 

6080,02 

6100,03* 

6100,04 

6ino.'o4* 

6100,05* 

COMP 

6100,06 

6100.08 

6100,08= 

6100,12 

6110,02 

6110,06 

6130,03* 

COMP 

6130.05 

6130.06 

6130,06= 

6130,07 

6130,06 

6130.08 

6160.05* 

COMP 

6160.06 

6160,15 

6160,20 

6170,00* 

6210,02* 

621  0,'03 

6210,04 

COMP 

6220.06* 

6220.07 

6230,05* 

6230,06 

6250.03* 

6250,04 

6300,01* 

COMP 

6300,10* 

6300,10* 

6300,1 1* 

6300,11* 

6300,12* 

6300.12* 

6300,1 3* 

COMP 

6300,13* 

6300,15 

6310,08* 

6310,09 

6340,01= 

6340,0? 

6340,03* 

COMP 

6340,04* 

6340,05* 

6340,08 

6340,0? 

6340,1  1 

6350,02* 

6360,80 

COMP 

6360,00* 

6360,01* 

6360,01* 

6370,00* 

6370,00* 

6370,01* 

6370,01* 

COMP 

6380,01* 

6380,01* 

6380 , 02* 

6380,02* 

6390,01* 

6390,01* 

6390,02* 

CO  “P 

6390,02* 

6400,00 

6410,00* 

6410,01 

6410,05 

6410.04 

6410,06* 

CO-P 

6410,09 

6430.00 

6430,01 

6430,01* 

6430,02* 

6430,0?* 

6430,03* 

COMP 

6430,03* 

6430,04* 

6430,05* 

6430,06 

6430,06* 

6430.07* 

6430,07* 

COMP 

64  30 , 08* 

64^0, 08* 

6430,09* 

6440,00* 

6440,01* 

6440,02* 

6440,03* 

COMP 

6440,04* 

6440,05* 

6440,06* 

6440,07* 

6450,09* 

6450,10 

6450,10* 

COMP 

METRC 

.45 

.45* 

5130,06* 

5130,06* 

5360,01* 

5360.01* 

COMP 

MX 

5010,03 

5010,04 

5080,01 

5080,0? 

5140,01 

5140,0? 

59«0,01 

COMP 

5940,02 

6100,01 

6100,02 

6310,03* 

6310,04 

6310,05* 

6310,1 1* 

COMP 

6310,14* 

6320,01 

6320,02* 

6320,03* 

6320,04 

6320.04* 

6320,05* 

COMP 

6320,06 

6320,06* 

6320.07* 

6320,07* 

6320,06* 

6320,08* 

6320,09* 

CO-P 

6340.00 

6340,01 

C0«p 

N 

5610,01* 

5820,06 

5900,01 

COMP 

.47* 

5080.00* 

5080,03 

5080,03* 

5080,04* 

5080.04* 

5080,06* 

COMP 

5080,06* 

5130,09 

5130,09* 

5130,10* 

5130,10* 

5160.01 

5350,05 

CO-P 

5500,01 

6150,00 

6160,12* 

6160,12* 

6280.00 

COMP 

NCpT 

5080,01 

5140,01 

5940,01 

6100,01 

6100,02 

6  3  4  0  0  0 

COMp 

^cycl 

6150.00 

6280,00 

COMP 

NDAY3 

.48 

CO-P 

•1  3- 

FXMT8T1 

3 

HDTV 

6650,01 

6050,02 

CDPP 

NOIVF 

5170,00 

5180,00 

5190,00 

COPP 

NDIVR 

5100,08 

5210,00 

comp 

NOWSH 

6<J50, 1  is 

6050,11= 

CQPP 

NFL 

• 

fc 

Lr» 

II 

5230.19* 

5230.19* 

5000. 01 

5520.02* 

5520,02* 

5726,00 

CO*P 

5730.01 

6300.07 

rnMP 

WL 

«  03 

5230.09 

5230, 12 

5230,12 

5250.01 

539n, 00 

5000,01 

ropp 

5OO0.02 

5000.02 

5000,08 

5000,09 

5500,01 

5520.01* 

5530,68* 

cnpp 

5530,08* 

5500,06 

5560,03 

5580,00 

5590,01 

561 0,01 

5636,00* 

ropp 

5650.02 

5670,01 

5730,07 

5730.08 

5730.10 

5730,1? 

5700,61 

cnpp 

5820,06 

5850.07 

5850.07* 

5900,01 

6150, ou 

6160,10* 

6190,02 

roMP 

6200,01 

6010.00 

6010,02 

COpP 

WLF 

."3 

copp 

NPf  R 

,06s 

5020.00 

5020,00 

5020,05* 

5020,05* 

5130,12 

5130,12* 

cnpp 

5350,07 

5350,07 

copp 

NPwR 

.53 

.50 

6130.01 

6130,0? 

6280,01 

6300,00 

CO“P 

MPmRS 

5auo,  1 1 

5000.12 

5070,00 

5070,05 

6150,00* 

6150,01 

6280 , 60* 

CO«P 

6280, 05» 

6310,01* 

6310,0? 

CP“P 

NR 

5ao0.07s 

5050.00* 

5070,01* 

5070.02* 

5970,01* 

5970.02 

61 00,06= 

rn«p 

6100,11 

6110.05* 

eppp 

NRE8M 

51oo,03» 

5260 , 0 1 

5020,00 

5000 ,03b 

5780,02 

5850,00 

CP“P 

NRESP 

6150.02 

6310,06 

COPP 

NRFSR 

5100,03 

5O10.01* 

5500,03 

COPP 

N3H2 

6030, 07e 

6030.07* 

COPP 

n$hOv 

5020,068 

5020,07 

COPP 

NSHMN 

6030,028 

6030.02* 

CO“P 

N8HP 

6300,128 

6300.12* 

f  OPP 

N8HPS 

6300,1 08 

6300,108 

COPP 

NSMO 

5000,00 

5000. ol 

5050,01 

COPP 

N8MR 

5010,01 

5010,03 

COPP 

NSPtR 

5020,02 

roMP 

nsptp 

6320,078 

6320.07a 

COPP 

NSTOR 

6350.02s 

6360,00 

6360,00* 

6360,01* 

6360,01* 

6370.00* 

6370,00* 

copp 

6370.01« 

6370 , 0  t  * 

6380,01* 

6380,01* 

6380,02* 

6380,02* 

6390,01* 

COPP 

6350 , 0 1  a 

6390,02* 

6390,02* 

6000.00 

CO“P 

NUPST 

5230.05 

5000. 07 

5580,02 

5780,07 

5850,10 

5850,11 

5920.00 

COPP 

5R20.02 

5970.00 

5970,01 

6100,05* 

6100,06 

COPP 

OVLOO 

6020,06 

6300.02 

COMP 

PFMAy 

5050,03 

5050,00 

5050,00 

5070,10 

5070,11 

507  0 , 1  i 

6160,09 

CO“P 

6220.08 

6230.07 

6310,12 

COPP 

PG 

.03 

5000.1 3* 

5000.15* 

5000, 17« 

5000,188 

5000.18* 

5000,21 

COPP 

5000.218 

5000, 

5000,22* 

5050,05* 

5050,05* 

5070,06* 

5070,12* 

COPP 

5070, 12e 

6160,15 

6160,20 

6170.008 

6210,00 

rnpp 

PG*U 

.03 

6160.07* 

6160.11* 

6160,11* 

6160,12 

6160,12 

6190,00 

rnpp 

PG4UT 

6160,018 

6190.008 

copp 

PGT 

.03 

6160.00* 

6170,01* 

6190,03 

6190,00 

6190,00* 

copp 

PKPwR 

6090,00 

C0“P 

POwtR 

6130,078 

6130,08 

6130,08* 

6130,09 

6130,11* 

6130,11* 

6100,00* 

COPP 

6160,07 

6160.15 

6300,03 

6300,03* 

6300,00 

6300,07 

6300,08 

C0“P 

6310,00 

6310.10 

6310,11* 

6320,01 

COPP 

POWR 

5000,00 

6160, 13* 

6160,1 3a 

6160,21 

6160,21b 

6180,02 

6220,09 

cn«p 

6250.05 

6300,05 

6300,07 

COMP 

POWRP 

6020,06 

6090 , 00» 

6130,11 

6130,11* 

6160.08 

COPP 

POWPT 

6160.03" 

6160, 02« 

CQPP 

PwfR 

5000,00 

5370,02 

5370,03 

5370,03 

6160,12* 

6160,12* 

6160,13* 

COPP 

6160.13a 

6180,01 

6210,00* 

6210,05 

6210.07* 

6210,07* 

6230,00 

COPP 

6230,07" 

6230,0’“ 

6210,09* 

6250,05* 

6250,07* 

6250,07* 

6300,06 

COPP 

6300,08 

6310.05* 

6310,10* 

6320,03 

6320,05 

COPP 

PWFRT 

6160,02* 

6160,018 

6210,00 

6210,05* 

6220,01 

COMP 

PWRPX 

5050,03 

5050,00 

5050,00 

5070,10 

5070,11 

5070,11 

6020,06 

COMP 

6160,09 

6220.08 

6230,07 

6300,0? 

6310,12 

COMP 

PwR3 

6150.03 

6230,01 

6230,02 

6250,00 

6320.02 

6320,03 

COPP 

QA 

5100,00* 

5100,06 

5170,05 

5370,06* 

5010,00 

5010,02* 

5010,09* 

CO“P 

5510,00 

5610,01* 

5650,00 

5790,00 

5800,01 

5800,02 

5810,01* 

COPP 

5«20,06 

5860,00 

5860,02* 

5880,03* 

5690,01" 

5900,01 

5920,05 

COMP 

5930,01* 

5930,02" 

5930 , no 

5930,05 

5930,06* 

5980,00 

5980,01 

CO“P 

5960.01* 

5990,01 

6060,01 

6080,02 

6080,02 

6100,00 

6100,00* 

CQPP 

6100.13 

6120.00 

6130,06 

6J30.06* 

6130,07 

6130,08 

6130,08 

comp 

6160,15 

6030,00 

6030,05 

6000,06 

CO“P 

QA  3Um 

5650,09b 

5660.00* 

5670,00 

5920,01* 

5920,05* 

5930,01 

cn«p 

(3*  y 

6100.09* 

6100.13* 

6110.01 

6)  10.0? 

cn«p 

QCAP 

5130,08 

COPP 

-1  am 


EXHIBIT  1 


QC0N3 

5410,00* 

5820,00* 

5820,00* 

5890,02* 

5930,07* 

6100,04 

6100.04* 

eo*p 

6110.00 

6110.02 

6120,00* 

6440,05 

COMP 

OCX 

6100.10* 

6110,00* 

6110,01 

6110.02 

eoHP 

HO!  V 

5020,11 

5020,12* 

5020,13 

5150,04* 

5160,00 

5  2  0  0  0  0 

5200,00* 

COHP 

6450,04 

6450,07 

COMP 

ODIVA 

5150,03 

5150,05* 

5200,02* 

5210,05 

5280,03 

5280  ^03 

5410,06 

CQMP 

3410,07* 

5410,08 

5530.01 

5530.01 

5540,04* 

5590,08* 

5620,07 

COMP 

5620,07* 

5620,08* 

5930.04 

5960,00 

5960,01 

6450,05 

6450,07 

COHP 

OOI  V» 

5140,07* 

5210,05* 

5230,11 

5230,12 

5230.12 

5400.00 

5410,02 

COHP 

5410,03 

5410,07 

5410,08* 

5540,05* 

5580,05 

5590,09* 

5640,02* 

COHP 

5430.01 

5930,05* 

5940,04 

6110.0? 

COHP 

QOIVS 

5020,11* 

5020,13* 

5020,14* 

5020,14* 

5150,03* 

5150,05 

5200,01* 

COHP 

01 

5180,00 

5940,04* 

5960,00* 

5980,00* 

5980,01 

5980.01 

5990,01 

COHP 

6440.02 

COHP 

OL 

5230,02 

5230,11 

5230,12 

5230,12 

5400,00 

5410.02 

5410,03* 

COHP 

5410,07 

5580,05 

5730,05 

5930.01 

5940.03 

59U0  ,’OU 

6110,02 

COHP 

6440,00 

COHP 

0LK6 

5230,21* 

5210.21* 

5280,04 

5370,02 

5370.03 

5370  ,|03 

5450,03 

COHP 

5450,04 

5450,04 

5470,10 

5470,11 

5470.11 

5520,00 

5520,00* 

COHP 

5530,02 

5620,02 

5620,03 

5620.03 

6110,05 

6130.07 

6130,08 

COHP 

6130,08 

6160,15 

COHP 

QM2 

6430,04* 

COHP 

QMAXA 

5080,03 

5080,03* 

5130,09 

5130,09* 

5130,10* 

5130 'lO* 

5230.00 

COHP 

5530.04 

5530,04* 

5530,05* 

5590,03 

5590,03* 

5730.04 

5730,04* 

COHP 

0MJN2 

5050.03 

5050,03* 

5690,00 

6430,05 

6440.03 

COHP 

CHINA 

5040,03 

5040,04 

5040,04 

6430,00 

6440,04 

COHP 

qmins 

5040,03 

5040,04 

5040.04* 

5050,03 

5050,03* 

5140.04 

COHP 

0  H  X 

5230.01 

5230,01* 

5590.02 

5730,03 

COHP 

00 

5400,00* 

5400,01 

5400,02 

5440,10 

5440,1 3 

5440 *17 

5550,00* 

COHP 

5630,02 

5630,02* 

COHP 

OCIHN 

5400.01* 

5400,03 

5440,15 

5440,18 

5440.18* 

5440,20 

5470,00 

COHP 

5470,00 

5620, 12e 

5620,12* 

5820,01= 

5820,02* 

5820.02* 

5820,01* 

COMP 

5820,03* 

5870.00* 

COHP 

OOMna 

.04 

5400,02* 

5620.10* 

5820,02 

5820.02* 

COHP 

QfJMNB 

.04 

5400.03* 

5620,11* 

5620, 12 

5620,12* 

5B?0.'o3* 

5820,03* 

COHP 

qohna 

.04 

5400,02* 

5620,10* 

5620,02 

5820.02* 

COHP 

OOMnB 

.04 

5400.03* 

5620,11* 

5620,12 

5620,12* 

5820.' 03* 

5820.01* 

COHP 

QOHNA 

.04 

5400,02* 

5620.10* 

5820,02 

5820,02* 

CO«P 

QOHnB 

.04 

5400,03= 

5620,1 1* 

5620,12 

5620.12* 

5820,03* 

5820,01* 

CO-P 

COT 

5230,17 

5230.22* 

5260,05 

5440,10 

5470,00 

5470,00* 

5490,00 

COHP 

5510,00* 

5520.00* 

5520,00* 

5520,02* 

5520,02* 

5520,03* 

5520,03* 

CO«P 

5520.04* 

5520,04* 

5530,03 

5530,03* 

5530,04* 

5530,04= 

5510,068 

CO“P 

5530,06* 

5530,08* 

5530,08* 

5540,00* 

5540.03 

5550,01 ■ 

5560,00 

COHP 

5560,00* 

5580,05* 

5590,00* 

5590,04* 

5590.07 

5590,10s 

5610.OJ* 

CO«P 

5620.02 

5620,03 

5620,03 

5630,01* 

5640,01 

5640,01* 

5640.01 

COHP 

5640.03* 

5650,03 

5660,01 

5690,02* 

5690,03 

5730,08 

5730.10 

COHP 

5730,13 

5750,01 

5750,02 

5750,0? 

5780,05 

5820.06 

5850,06 

COHP 

5850.07 

5850,07 

5900,01 

COHP 

OOTHN 

.04 

5080,04* 

5080,04* 

5230,19 

5230,19* 

5230,20* 

5230,20* 

COHP 

5280,04* 

5520,02* 

5520,02* 

5530,06* 

5530.06* 

5820.04* 

5820,04* 

COHP 

5820.06 

5850,08 

5870,01* 

5900,01 

COHP 

QOTMX 

,04 

5230,02* 

5230,03 

5230,03* 

5230,04* 

5230  04* 

5230,18 

COMP 

5230.18* 

5240,01 

5240,03 

5240,03 

5260,05* 

5520 ,03* 

5520,03* 

COHP 

5530,08* 

5530,08* 

5540,00* 

5540.03 

5550,01 

5640.03* 

5640,03* 

COHP 

5320,06 

5900.01 

COHP 

OPREp 

5170,00 

5940,03* 

5970,04* 

6440,01 

COHP 

OT 

5300,01 

5300,02* 

5330.00 

5330,01 

CO“P 

RSMDV 

5020,1  3 

C0«p 

RSHQ 

5040,04 

5040,04 

COHP 

RTIOO 

5150,03 

5150,04 

6450 . 06* 

COHP 

gwOl  v 

6450,03* 

6450,07* 

6450,08* 

64S0 ,08* 

6450,1  0 

6450.10* 

6450,1 1* 

COHP 

6450,11* 

6450,12* 

6450,12* 

6450,13 

COHP 

9H0HX 

6450,12* 

6450, 12* 

C()“P 

3  hh  x 

64  30,03* 

6430,03* 

COHP 

3HHX2 

6430.08* 

6430,08* 

COHP 

JHP^X 

6300,13* 

6300,13* 

COHP 

3HPT2 

6430.05* 

6430,06= 

6430,06* 

6430.07* 

6430,07* 

6430.’ 08* 

6430, 08= 

COMP 

64  30,09 

Cfl“P 

3  m  P  T  P 

6300,07, 

6300, 12* 

6300,12* 

6300, 1 3* 

6300,1 3* 

6  3  n  0  .'  1  4  * 

6300 ,148 

ro“P 

6300.17 

6310.00 

6320.03= 

6320,04* 

63?o, "4* 

6320 . 06* 

6320 , 068 

cn«p 
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6320.07* 

6320,07* 

6320,08* 

6320,08* 

6320,00 

COMP 

3HRTQ 

6430.00 

6430.01 

6430,01* 

6430,02* 

6430,02* 

6430.03* 

6430,03* 

COMP 

6440,07 

COMP 

SP8MX 

6300,11* 

6300 , 1  1  a 

COMP 

STOR 

5080,00 

5080, l 0 

5130.01 

5130,02 

5130,02 

6000.03 

6000,04 

COMP 

6020,01 

6020,02 

6020,02 

COMP 

STOR* 

5020,00 

5080,06 

5080,06 

5230, 12 

5230,12 

5400,00 

5090,01 

COMP 

6000,00 

6340,05* 

6340,11 

6410.01 

COMP 

STOR* 

5090,01* 

5990,02* 

5090,03 

5990,04* 

6000.00 

6000,03 

6020,02 

COMP 

6020,02 

6340,05 

COMP 

STHRt 

5230.12 

5230,12 

5400,00 

6340.08 

6340.00 

6410,03 

6410,04 

COMP 

STOAV 

5080,06* 

5080,06* 

5080.09 

5130,02 

6130,02 

5100,00 

6000,00* 

COMP 

6030,01 

6050.02 

6050,02 

comp 

STRSn 

5020,01 

CQMP 

sycns 

6440,05* 

COMP 

avnv 

6450,04* 

COMP 

SYOVA 

6450,05* 

CO“P 

3YDY3 

.49 

COMP 

SYf  VP 

6340,04* 

CO“P 

SYH3P 

6320.08a 

6320,08* 

COMP 

8YPR 

6300.05* 

6320.02* 

CO“P 

3YPRF 

6440.01* 

COMP 

SYP^P 

6300,04* 

6320,01 

COMP 

SYO 

6440,04* 

COMP 

SYOA 

6440,06* 

COMP 

SYO  I 

6440, u2* 

C0MP 

3  YQL 

6440,00* 

COMP 

SYQMni 

6440,03* 

COMP 

3Y3H2 

6430,09* 

COMP 

SYSHO 

6450.1 3* 

CQMP 

SY3MP 

6310,00* 

6320.00= 

COMP 

SY3H0 

6440 ,07* 

COMP 

3YSP 

6300,06* 

6320,05* 

COMP 

SYS8P 

6300,08* 

6300. flOa 

6300,00* 

6300,10* 

6300. 1 0* 

6300.1 1 « 

6300,1 1= 

COMP 

6300,18 

CO“P 

8Y3YS 

6300.18* 

COMP 

TEmp 

5" 1 « . 02* 

5020.00* 

5020.01 

5130,00* 

6130,02* 

5130.02* 

51 30,03 

CO“P 

5l 3o, 08 

'VJO.II 

5130.16 

5160.00* 

6170.00 

5180,00 

5190,00 

COMP 

5200,00 

5200. 00* 

5200,01 

5200,0? 

5230. 00* 

5230.01 

5230,01* 

COMP 

5230,02 

5230.04 

5230.04 

5230.08* 

5230,10 

5230,11* 

5230,12 

COMP 

5230,12* 

5230.23* 

5240.01 

5240,0? 

5240.02* 

5240.03= 

5240,03* 

COMP 

5330.01* 

5330.02 

5350.02* 

5350.03 

5350.03* 

5360,02* 

5360,02* 

CO“P 

5450.03* 

5450.04 

5450,04* 

5450,05* 

5450.05* 

5470,10* 

5470,11 

CQMP 

5470.11* 

5470.12= 

5470,12* 

5530,00* 

5530,01 

5530.01* 

5530,02* 

CO“P 

5530.03 

5530.03* 

5540.03* 

5540,04 

5540.05 

5550,00 

5590,07* 

CQMP 

5590,08 

5500.09 

5620,05* 

5620,07 

5620,07* 

5620,08 

5620,10 

COMP 

5620.1  1 

5630,01 

5630,02 

5630,02 

5640,02 

5650.00* 

5650,03 

ro“P 

5660,01 

5730.00= 

57J0.02 

5730,02* 

5730,05* 

5730.08 

5730,10 

CO"P 

5730,1  3 

5750.02 

5750,02 

5780,05* 

5780,06 

5800,01 

5800,0? 

CO“P 

5810,01 

5820, 00 

5820,00* 

5820,04* 

5820,04* 

5850.06* 

5850,07 

comp 

5850.07* 

5850.08= 

5870,00 

5870,01 

5886,02 

5880.03 

5890,01 

rn«p 

5890.02 

5940.05* 

5060.01* 

5080,01 

5080.01 

5090,01 

6020 , 60s 

COMP 

6020,02* 

6020.0?* 

6020,63 

6050,00* 

6050,6? 

6050.0?* 

6080,00* 

COMP 

6060,02 

6080,02* 

6000,00 

6100,07* 

6100,08 

6100,08* 

6110,02 

CO“P 

6130, 05* 

6130.06 

6130,06* 

6160,00a 

6160,10 

6160,10= 

6160,15* 

C0“p 

6160,16 

6160,16* 

6160,22* 

6160,22a 

6170,00 

6170,01 

6190,01= 

CP“P 

6100, 0« 

6100,04* 

6100.05* 

6100,05* 

6210.04 

6220,04* 

6230 ,00= 

COMP 

6230,01 

6230.0? 

6250,00 

6300,02* 

6300,03 

6360.03= 

6310,10= 

CP“P 

6310.11 

6310,13 

6310,13* 

6310,14 

6340,00= 

6340. 10 

6340,1 1 

COMP 

6410,03* 

6410.05 

6410,07* 

6410,00 

comp 

Tl 

5350.02 

5340,00 

ro“P 

TLWEL 

5280,08 

5260.10 

5350,02 

5370,08* 

COMP 

TMP 

5020,01* 

5020.1? 

5020,13 

5040.04 

5040,04= 

5130.04* 

5130,05 

CQMP 

5130,05* 

5 130,06* 

51 30,06* 

5130,07 

5130,08* 

5130,00 

5130,09 

CO“P 

5130.10 

5130.10 

5230, 10* 

5240,02 

5240. 02* 

5240,03* 

5240,03* 

M“P 

5280.02* 

5280,03 

5280,03* 

5280,04 

5410,06= 

5410.07 

5410,08 

roup 

5590,02= 

5500. 03 

5590, 03e 

5600,04= 

5590.07 

55P0.10 

5620,02= 

roxp 

5620,03 

5620.o3= 

5620.04* 

5620. 

5660 , 00* 

5660,01 

5600,00* 

CQMP 

5690.01 

560q , o 1 » 

5690.03 

5720,01* 

5720.02 

5730,03* 

5730,04 

COMP 

5730.04* 

5730.05 

5730,06* 

5760,00* 

5750.02 

5750.02* 

5760,00* 

rn“P 

5760.00* 

5760.01  * 

5770.00* 

5780.01 

5780,05 

6850.04* 

5850,05* 

COMP 

5850,07 

5850.07 

61 10,02* 

61 10.03 

61  10,04 

61  10,04* 

6120,00 

CQMP 
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6160,08* 

6160,10 

6160,10* 

6160,11* 

6160.1 1* 

6160.16 

6160.16* 

C0“P 

6220,03* 

6220,09* 

6230,02* 

6230,03 

6210,03* 

6230.07 

6250.00* 

CO«P 

6250,01 

6250,01* 

6250,05 

6390,06* 

6390,11* 

6390  12 

6350.00 

cohp 

6350,01 

6360,00* 

6360,00* 

6360,01* 

6360,01* 

6370. OOe 

6370,00* 

CO“P 

6370,01* 

6370,01* 

6380,00* 

6380 , 0 1  * 

6380,01* 

6380.02* 

6380,02= 

CO«P 

6390,00* 

6390,01* 

6390,01* 

6390,02* 

6390,02* 

6910.09* 

6910,07 

eo"p 

6910,09 

5230,20* 

C0uP 

tmpa 

5230.17* 

5230,18 

5230.18* 

5230,19* 

5230.19b 

5230,20= 

CL  MP 

5238.21* 

5230,21* 

5230,22 

5230,23 

5780,06* 

5790,00* 

5820,01 

COHP 

6160,20* 

6160,21 

6160,21* 

6160.22= 

6160,22* 

6220.0?* 

6220.06= 

COHP 

6230,02 

CO«P 

thpg 

5990,20* 

5990,21 

5990,21* 

59ao,?2 

5990,22 

5750,01* 

5750,02 

COHP 

5750,02* 

6390,08* 

6390,09 

6390,11 

537  0  ^03* 

COMP 

TmPP 

5190,06* 

5300.01 

5330,01 

5370,02* 

5370,03 

5370.09 

COMP 

5370,05 

5370,06 

6130,09* 

6210.07 

6210,07* 

6230^09 

6230.09= 

eo-p 

6250,07 

6250,07* 

6290,00* 

6300. 17* 

6320,09 

6320.09* 

COMP 

THPPR 

5280.05* 

5370,09* 

5690,01 

5690, Ole 

COMP 

THPRS 

6150,03* 

6190,03 

6190,09 

6190,09 

6220,01 

COMP 

T-EL 

,09 

5280,06* 

5330,02* 

5390,00* 

5350,03 

5350.03 

5360,00* 

COMP 

5360,01 

5360,01* 

5360,02* 

5360.02* 

5370,00 

COMP 

A 

,02 

7110.02 

7120,00 

ECON 

PEN 

.02 

7390,02* 

7350,00* 

7360,00* 

7900,01 

7990.00 

7990,01 

ECON 

7990,02* 

ECON 

CPT 

7100,00 

ECON 

fcvai 

7130,16 

7130,18 

7130,21 

7130,21* 

7150,00* 

7330.03 

ECON 

HYVAt 

7130,13 

7110,15 

7190,07* 

7300,02 

7300,03 

7330.01 

7330,02 

ECON 

7330,02 

7  130.' 18 

ECON 

I 

7150,11 

7130,12 

7130,13 

7130.15 

7130.16 

7130,21 

ECON 

7130,21* 

7190.02 

7190,03 

7190,07 

7150.00 

7210.0? 

7290,01 

ECON 

7250.00* 

7260,00 

7260,01 

7290,00 

7290.02 

7290.02 

7300,00 

FCON 

7300,02 

7300.03 

7330,01 

7330,0? 

7330,02 

7330.03* 

7390,00 

ECON 

7390,01 

7390,02* 

7390,03 

7390,09* 

7390,05 

7350.00a 

7360,00* 

ECON 

7360,01 

7360,02* 

7360,03 

7360,09 

7380.01 

7380.02* 

7900,01 

ECOn 

7930,02 

7990,00 

7990,01 

7940,02* 

7970.02 

ECON 

IB 

7270,02* 

7280.00* 

7330,09* 

7370,0? 

7380,00* 

ECON 

ICPT 

7090,02 

7130.03 

7250,02 

7590.05 

7590,03 

7630.03 

7670.03 

ECOn 

7710,05 

FCON 

IE 

7130,08* 

7270,01 

7290,02 

7370,01 

7590,08 

ECON 

IECON 

7200,01 

7900,00 

7970.01 

FCON 

IR 

7930,09* 

7930,05 

7930,05* 

7990,00* 

ECON 

IRESM 

7930,09 

7130.18 

ECCIn 

ITHR 

7130,13 

7130,19 

7130.15 

7130,16 

7130.17 

7250, OJ* 

ECON 

7250,09 

7250.05 

7930,00* 

7930,01 

7930,03 

ECON 

I  TP 

7190,03* 

7190,09 

7270.00 

7270,01 

7290.01 

7290.02 

ECON 

IX 

7190,09 

7190,07* 

7150,00* 

ECON 

IV 

7200,00 

ECON 

IYFAR 

7120,03 

FCnN 

IYRA 

7120,03* 

7200,02 

7990,00* 

FCON 

J 

7110.01 

7120,00 

7120,02 

7120.05 

7130,09* 

7130.05* 

7130,06* 

ECON 

7130,07* 

7130,08* 

7190,01 

7190,05* 

7170,02 

7200.02 

7290.01 

ECON 

7390,00* 

7390,01* 

7390,02* 

7390,05* 

7350,00* 

7360.00* 

7360,03* 

FCON 

7560,09* 

7370,01 

7900,01 

7990,00* 

7990,01* 

7900.02* 

7500,01 

FCON 

7500,01* 

7530,02 

7530,03 

7590,00* 

7590,07 

7590.08 

7590.09* 

ECOn 

7390,10* 

7590,11 

7550,01 

7560,01 

7580,01 

7580  ^0? 

7590,00* 

ECON 

7590,05 

7590,06* 

7590,07* 

7590, OR* 

7590.09 

7600^01 

7610,01 

ECOn 

7620,02 

7620,03 

7630,00* 

7630.05 

7630,06* 

7630.07* 

7630.08 

ECOn 

7690,01 

7650,01 

7660,02 

7660,03 

7670,00* 

7670.05 

7670,06* 

ECOn 

7670,07 

7680,01 

7690,01 

7700,02 

7700,03 

7710.00* 

7710,05 

FCON 

7710,06* 

7710.07 

7720,01 

7730,01 

ECON 

JTMp 

7130.01* 

7130,09* 

7180,01 

FCON 

K 

7100,00 

7110,02 

7120,00 

7250,05 

7260,00 

7930.03 

7930,09 

ECON 

7990,00 

FCOn 

L 

7130,13 

7130,15 

7130,16 

7130.18 

7130.20 

7130.21 

7130,21* 

FCOn 

7190,06* 

7190,07* 

7150,00* 

7300,01 

7300,02 

7300.03 

7310.01* 

ECON 

7320,00* 

7330,01 

7330,02 

7330,02 

7330,03 

ECON 

H 

7090,02* 

7100,00 

7130,03* 

7130,09* 

7130,05* 

7130.06* 

7130,07* 

FCOn 

7130.08* 

7130,13 

7130,19 

7130,15 

7130,16 

7130.17 

7130,18 

ECON 

7130,21 

7110,21* 

7190,01 

7190,05* 

7190,07* 

7130,00* 

7170,02 

FCON 

7250,02* 

7250,03 

7270,01 

7290.0? 

7300,02 

7300,03 

7330,01 

FCON 

7330,02 

7330,02 

7330,03 

7390,00* 

7590,01* 

7390,05* 

7360.03* 

ECON 

7360,09* 

7370,01 

7900,01 

7930,00 

7930,09 

7990,01* 

7590,05* 

ECON 

7590.06 

7590,09* 

7590,10 

7590,11 

7550,01 

7590.03* 

7590,06* 

ECON 
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7560,07* 

7560.08 

7630.08 

7640.01 

7710,06 

7710.07 

NTH 

7130,10* 

7140.06 

7130.12 

MX 

7060.01 

7060.0? 

7540,05 

7560.0? 

7710,02 

7710.03 

NCPT 

7060,01 

7710,02 

7130.0? 

NEA 

7120.01* 

7500.01 

HI 

7080.01* 

7080.0? 

7160,06 

7300.01 

nPFR 

7130,11 

7210,0? 

7260,02 

7300,00 

NRPSR 

7250,03 

7430.00 

HYPS 

7170.01 

7200,00 

0 

.02 

7380,02* 

7260,00 

01! 

7260,00 

7440,00 

SM 

.02 

7250,00* 

7560,01 

7560,00* 

7670,00* 

7670,06* 

SUM 

7270.03* 

7340.03* 

7550.01 

7560,00 

7630,08* 

7640.01 

7710.04* 

7710.07* 

SUM* 

72U0.00* 

7420,00* 

7610.00* 

7610.01 

7660,01 

7710.01* 

TEMP 

7170,01* 

7170.02 

TMP 

7130.19* 

7130,21 

7310,02* 

7330,03 

TMPP 

7330.03* 

7340.00 

7350,00 

7360.00 

TMPX 

7260,01 

7380.0? 

V 

.02 

7130,04* 

7560,08 

7590.06 

VIFFT 

.02 

7130.07* 

7710.07 

7720.01 

V  M  A  X 

.03 

7130.06* 

7670,07 

7680.01 

VU 

.03 

7550.01 

7130.05* 

J 

.01 

.03 

l 

,06* 

6600,01* 

11 

.05* 

6620.00* 

LI 

6600,00 

6600.01 

NVAl 

.01 

6600,00 

TEMP 

.01 

,03 

TMPP 

.01 

6630.00* 

VAR1 

.01 

.02 

V  A  R  2 

.01 

.0? 

APFRO 

8450.02 

8480,00* 

APRD 

8450,02 

8480,00* 

ARRAY 

8240.06 

8260.06 

AVG 

8240.06* 

8260,05 

•PJHTP 

8030,01 

8060 , 0 1 

8240,01 

8240,01 

CPT 

8380,01 

ELEV 

8430,01 

8450.02 

EVP 

8430.01 

8450,03* 

I 

6260.07 

"260,08 

8450,03* 

8480,00* 

11 

8030,00 

8050,01 

no 

8360,00 

8360,00 

12 

8060,00 

8080,01 

13 

8060,00 

8110,01 

14 

8120.00 

8140.01 

15 

8150,00 

8170,01 

16 

8180,00 

"200,01 

17 

8210,01 

8230.01 

7590,06 

7600,01 

7630,03* 

7670,03* 

7670,06 

7670.07 

7720,01 

7130,13 

7130.15 

7130.16 

7130.02 

7130.03 

7250.01 

7590,03 

7630.02 

7630,03 

7250,01 

7540,04 

7560,02 

7500, Ole 
7130,13 

7510.01 

7130.15 

7130,16 

7310,01 

7240,01 

7260,00 

7260,01 

7380,01 

7400,01 

7430,02 

7540,02 

7290,02 

7260.0? 

7300,03 

7340,04* 

7360,02* 

7470,02 

7560,08* 

7610,01 

7630,00* 

7660,01 

7710,00* 

7710,06* 

7360,01* 

7400,02 

7420,00 

7590,04* 

7590,06* 

7600,01 

7650,00 

7670,04* 

7670,07* 

7720,01 

7730.00 

7480,01 

7540,01* 

7560,00* 

7630,01* 

7650,00* 

7650,01 

7730,00* 

7730.01 

7130.21* 

7140,0! 

7140,05 

7540,02* 

7540.03* 

7540.09 

7340,01 

7340,02 

7340,03 

7360,01 

7360,0? 

7360,03 

7340,00* 

7360,03* 

7440,00* 

7600,01 

7630,06* 

7630.07 

7170.02 

7340,05* 

7590,07* 

7140,01 

7140,05* 

7170,02 

7340,01* 

7560,04* 

7540,09* 

6600,02 

6630,00 

9630,01 

6600,02 

6620,00 

6630,00 

6630,00 

6630.01 

6600,02 

9630,00 

.03 

6600,0? 

6630,00 

9630,00 

8510,01* 

8510,01* 

6630,01 

8260,08 

8260,06* 

8260,06* 

8060,01 

8320,01 

8120,01 

6150,01 

8480,00 

6510,01 

8480,01* 

8510,0? 

6260,06* 

8380.01 

8440,06 

8480,01* 

8510,00* 

8510,01* 

8050,02 

8360,07 

8050,03* 

8080,02 

8080,03* 

8110,02 

8110,03* 

8140,02 

8140,01* 

8170,02 

8170,03* 

8200,02 

8t  u u , v  3« 

8230,02 

8230,03* 

8240,01 

7630,06* 

7630,07 

ECON 

7680.01 

7710,03* 

fcon 

ECON 

7130,18 

7140,02 

EC"n 

ECON 

7250.02 

7540,04 

FCON 

7670.02 

7670,03 

fcon 

fcon 

7630,02 

7670.02 

ECON 

ECON 

FCON 

7130.18 

7110,20 

ECON 

FCON 

7260,00 

7260,02 

ECON 

7470,02 

ECON 

FCON 

ECON 

7330,02 

7330,02 

ECON 

ECON 

ECON 

7540,00* 

7540,10* 

FCON 

7630,07* 

7650,01 

FCON 

7730,01 

FCON 

7540,06* 

7540,11* 

ECON 

7610,00 

7630,04* 

FCON 

7680.01 

7660,00 

FCON 

ECON 

7560.01 

7590,01* 

FCON 

7670.01* 

7690,00* 

ECON 

FCON 

FCON 

7330.00* 

7330,02* 

FCON 

7560 ; 06 

7*90,07 

FCON 

7340.04 

7340.05 

FCON 

7360,04 

7440.02 

ECON 

FCON 

7440,01* 

7560.06* 

ECON 

7630.08 

7640.01 

FCON 

7630,06 

7710,06 

FCON 

ECON 

7630,06 

7670.06 

fCON 

FCON 

7540,10 

7540,11 

FCON 

FCON 

INTPOL 

6630,01 

intppl 

INTPOL 

INTPOl 

INTPOL 

INTPOL 

INTPOL 

INTPOL 

INTPOL 

PEARNG 

REARNG 

REARNG 

PEARNG 

8180,0! 

8210,02 

REARNG 

PEARNG 

REARng 

REARNG 

REARNG 

8440,07* 

8450,02 

REARNG 

8510,02 

rfarng 

PEARNG 

REARNG 

RFARNG 

REARNG 

REARNG 

REARNG 

REARNG 

8240,01 

REARNG 
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8240,00 

8310.01 

!9 

8320,00 

6340,01 

ICNO 

8010.02* 

8030,01 

8210,02 

8240,01 

ICPT 

8240, OR 

8260,03 

IONE 

8110,01 

8140.01 

JPWKW 

8390,01 

8440.03 

IPWR 

8370,00 

8440,01 

IRES 

8240,05 

8260,04 

ITwo 

8340,01 

HEAR 

8360,06a 

8430,03 

IVR 

8360,06 

IZERO 

8050,01 

8080,01 

J 

8240.02 

6430,00 

6240,06* 

JONE 

8110,01 

6140,01 

JTWO 

8340,01 

JZERC 

8050,01 

8080,01 

K 

6440,02* 

8440,04* 

8480,01* 

8490,01 

KCPT 

8030,01 

8060,01 

KDI  V 

8090,01 

8120,01 

KONE 

8110,01 

8140,01 

KRE3 

8210,02 

8240,01 

K  T  wo 

8340,01 

KZFRO 

8050,01 

8060,01 

H 

8240,04* 

8240,05 

8260,08 

8260,09* 

8440.02 

6450,02 

8510.01 

8510,02 

MX 

6240,03 

8240,04 

wrpx 

8240,03 

8260,02 

NFMT 

8310,01 

NPER 

8240,06 

8260,06 

NRCS 

8210.00 

8210.00 

NYR3 

8010,03 

8010,04* 

•  DUTPT 

8050,01 

8080,01 

8310.01 

8340,01 

POWER 

8430,01 

8440,07* 

POwRP 

6430,02 

8450,03* 

QA 

8430,02 

8450.03* 

01 

8430.01 

8450,02 

OUNIT 

8040,01 

6070.01 

3HRTP 

8430,01 

3TDRB 

8430,01 

8450,02 

3YEVP 

8430,01 

6460,01* 

SYPmx 

8430,01 

8460,01 

SYPwR 

8430,01 

6440,04* 

3  YGA 

8430,02 

8460,01* 

3YQI 

8430.01 

6460,01* 

syshp 

8430,01 

8440,05* 

TEMP 

8260,08* 

8260,09 

TITLE 

8040.00 

8070,00 

8300.00 

8330,00 

THP 

8260,05* 

6260,06 

VUN  I  T 

8220,01 

8300,01 

iRRAY 

9100,01 

9110,00 

AVG 

01 00,01 

! 

,08 

9000,00* 

6040,02* 

9100,00 

9050,01* 

ICNO 

.01 

.07 

ID 

9000,01* 

9060,01 

9000,04* 

ION 

9060,00* 

9060,04 

IONN 

9060,01* 

9120,00 

T  NO 

.02 

9000,00* 

9050,00 

9050,00 

I RG 

9000,03 

9010,01 

9060,04 

9060,04* 

J 

9  0  <>0 , 0  3 

9060,0a 

X 

9080.04 

9100,01 

8310,02 

8310,03* 

8340,02 

8340,03* 

8060,01 

8090,01 

8120,01 

8240,01 

8360,04 

8440,02 

8360,05 

8320,01 

6530,00* 

8170,01 

8200,01 

8230,01 

8260,01 

8260,05 

8260,06* 

8170.01 

8200,01 

8230,01 

8310.01 

8440,05* 

6440,07* 

6450,01* 

8150,01 

8180,01 

6240,01 

8320,01 

8170,01 

8200,01 

8230,01 

8240,06* 

8260.03* 

8260,04 

6360.04* 

8360,05 

8370,00 

8450.03* 

8520,01 

8460,01* 

8480.00 

8260,02 

8360,03 

8260,03 

8360,03 

8260,07 

8440,06 

8450,03 

8240.02 

8260,01 

8430,00 

6110,01 

8140.01 

8170,01 

8450,03* 

8480,01* 

8480,01* 

8510,02 

8480,00 

8510,01 

8100,01 

8130,01 

8160,01 

8480 ,00* 

8510,01 

8490,01 

8520,01 

8450,01* 

8460,01 

8490,01 

8490,01* 

8520,01 

8490,01* 

8520,01 

8260,10 

8100,00 

8360,01 

6130,00 

8160,00 

8260,09 

8260,10* 

9000,02 

9000,03 

9000,05* 

906(1 , 0  1 

9060,03 

9070,01 

9060,02 

9080,03 

9140,01* 

9000,05 

9010,02* 

9010,03 

9060,04* 

9070,01 

9070,01* 

9120,01 

9000,05* 

9010.03* 

9020,02* 

9060,01 

9060,04 

9060. 04e 

9120,00* 

9030,01* 

9040,01 

9070.0  J 

9070,01* 

ROfed ,  (Iqa 

9080,0? 

9100,01 

9iio.no 

9120,01 

REARNG 

REARNG 

B150.'oi  8160,0  1  REARNG 

REARNG 
REARNG 
RfcARNG 
REARNG 
REARNG 
RtARNG 
REARNG 
REARNG 
REARNG 


8310,01 

REARNG 

8260.08 

8260,09* 

REARNG 

REARNG 

REARNG 

REARNG 

REARNG 

6450  ,'o3« 

8460,01 

REARNG 

REARNG 

REARNG 

REARNG 

REARNG 

REARNG 

REARNG 

REARNG 

6260^05 

8260,06* 

REARNG 

6380,01 

6040,01 

Rf ARNG 

8480.01* 

6490.01* 

REARNG 

REARNG 

8  3  6  0  0  4 

REARNG 

REARNG 

REARNG 

6480.01 

8510.00* 

REARNG 

REARNG 

REARNG 

8200.01 

8230.01 

REARNG 

REARNG 

REARNG 

REARNG 

REARNG 

REARNG 

8190.’01 

RE  ARNG 
REARNG 
REARNG 
REARNG 
REARNG 
REARNG 
REARNG 
REARNG 
REARNG 
REARNG 

6190,00 

8220.00 

REARNG 
REARNG 
RE  ARNG 
REARNG 
8 1 N  T  P 
PJNTP 

9030^00 

9030.01 

BIntp 

9070.01* 

9080,00* 

8JNJP 

BINTP 

BINTP 

9020,01* 

9020,02 

BINTP 

BINTP 

9060,00 

BINTP 

BINTP 

9030^01 

9040,01 

BINTP 

9080,00* 

BINTP 

9050.00 

9050,0(1 

BINTP 

BINTP 

9  1  1  0  0  0 

BINTP 

BINTP 
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LHT 

.01 

9100*01 

9110,00 

BINTP 

M 

9100,01 

9110.00 

BINTP 

NPER 

9100.01 

9110.00 

BINTP 

NYRS 

9080,02 

BINTP 

ANYR9 

9260.01a 

9400,00 

9410,01 

OUTPT 

APERO 

9310,01 

9440,03 

OUTPT 

APRD 

9110.01 

9440,01 

flUTPT 

ARRAY 

9360,0  it 

9370,00 

9480,00 

9490,01 

niJTPT 

A  VC 

.02 

9360,00a 

9370,00a 

9400,00* 

9410,00 

OUTPT 

AVG 

9370,02 

9370.01 

9480,02 

9490,02 

OUTPT 

CPT 

9310,00 

OUTPT 

I 

9310,01 

9350,00 

9360,00* 

9360,04 

9360,06 

9370,00* 

9390,02 

OUTPT 

9U00,00« 

9410,00 

9440,03 

9400,00 

9490,01 

OUTPT 

*IAB3 

9310, Ott 

9S10,0« 

9490,00 

OUTPT 

ICPT 

9270.01 

9440.07 

9490,01 

OU7PT 

I0IV 

9280,00 

9310,04 

9310,04 

9450,00 

9490,00 

OUTPT 

IPHT 

.01 

.02 

9360,04 

9480,00 

9490,01 

OUTPT 

INP 

.01 

9260.02 

OUTPT 

IRES 

9290,00 

9460.00 

OUTPT 

IT3T 

.01 

9270.02 

9110,02 

9310,03 

9110,04 

9310,04* 

9370,01 

OUTPT 

9390,01 

9410,02 

9440,04 

9440,05 

9440.08 

9480,01 

OUTPT 

IVtAR 

9360,02a 

9360.04 

9360,05a 

9440,00a 

9440,02 

9510,01a 

OUTPT 

IYR 

9360,02 

9440,00 

OUTPT 

J 

9360.01 

9360,04 

9370,00 

9i70, 02 

9370.03 

9440,01 

9480,00 

OUTPT 

9480,02 

9490,01 

9490,02 

OUTPT 

JPMT 

.01 

.0? 

9370,02 

9410,03 

9480.02 

9490,02 

OUTPT 

K 

9310,00 

OUTPT 

KFMT 

.01 

,02 

9410,00 

OUTPT 

M 

9270, Ola 

9280,00 

9290,00 

9300,00 

9310,00 

9310,04 

9310,04* 

OUTPT 

9360,04 

9370.00 

9370.02 

9370,03 

9440,07* 

9450,00 

9460,00 

OUTPT 

9470,00 

9480.00 

9480,02 

9490,00* 

9490,01 

9490,02 

OUTPT 

MX 

9270,00 

9270.01 

9440,06 

9440.07 

9490,01 

OUTPT 

NCPT 

9270.00 

9440,06 

OUTPT 

NPER 

9310,01 

9350,00 

9360,04 

9360,06 

9390,02 

9410,00 

9440,03 

OUTPT 

9480,00 

9490,01 

OUTPT 

NYR3 

9260,01 

9360,03 

9440,01 

OUTPT 

OM? 

9300,00 

9470.00 

OUTPT 

TAVE 

9360,01a 

9370.03a 

9410.01* 

9410,03 

OUTPT 
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EXHIBIT  4 
PROGRAM  LISTING 


1.'  u  u  o  u 


HEC-3  RESERVOIR  SYSTEM  ANALYSIS  723-X6-L2030  Tiily  1974 

tape  i-u  s  scratch  files 

TAPE  5  *  CARD  READFR 

TAPf  6  «  lInE  PRINTER 

indexes  I»PER  JbYEAR  kbTASlE  L«LEVEl  hbLOCAT IOn  !P«pwr  I D»D  I  v 
CCmmOn/DTADM/ 

,  KCPT,KPwR,KPmRS,KR£  S/KUPST,*OI V,KL»XPFR#KQIL»kSFRV,kupqI 
COMmOn/DTAIN/ 

.  PuNIt(6) ,8LNK , I8LK,FLHU#  vOLU*PLHT, VLHT, AMOSf  12) .«DAYSfl2) , 

,  IMuMno),LTRJ,LTRC,IKDDE(2«),KODt(l3),FIRST,LTDP 
COMM0N/OTARG/ 

,  IZERo(3), IDNE(3),ITwO(3),JZERO(3),JONF (3), JTwp(3), 

,  kZERO(3),KON£(3),KTwO(3)»NFmT(35 
CChmOn/IN/ 

.  CACFT,CCES,CSTI(12),CST0(12),DINDX(2S),IFL0-,TPRL,IPRMT, 

,  IPmyr,  I3ERV(30,19),  ISMRY,  ISTOR(12),  junit,  iupdt, 

,  IUPOIUO, 10),IYR,JUPQI,MQ(90),NDVYR,NFLO"»NLYR,NSFRV(30)» 

.  NQYR,NUPQI(40),PINDX(22),QINDX{40),QMlN(12,60),f32NDX(40), 

,  RTIO(90)»3CNS(40),SDV(25),SDVA(25),SEVP(30),SPMX(22),SPR(22), 

.  8PRE(U0),3PWR(22),3Q(«0>,3QA(«0),3QI(40),3QLU0),SOMN(a0), 

.  S3HDC25)  ,SSHP(22)  ,SSHO(RO)  ,SSH2(9(l)  ,SSPf22)  ,ST0R1  f  30  ) ,  T«PR  { !  2  ) 

.  *  C  SOuT (12) 

COMMON  /ALPHA/ 

•  APEPD(12)  >*PRO(  12)  .  I  CIV  (40),  IPWR{40)  ,  I  YR1  , nPwR,NRFS,Qm2(40)  , 

.  TITLEC60), IPHKR 
COMMON  /BETA/ 

,  NYR3,IRG(10)#CPT(«0*6),ICPTCa0}#IR£S(<t0)#NCPT,NPEB,GUNIT,VUMT 
COMMON/DLTAi/ 

.  CNTRL(i2,«0),QL(12,40),3YGI(40),QI(12,40),3TOR8(12,30), 

.  £LEV(12,30),SYEvp(30),EvP{t2,30),3YPwR(22),POwER(12,2;>), 

.  SYSHp(2?),8HRTP(12,22),3YPMX(22),POHRP(12»20),SYGA(UO),GA(12,aO) 
COMMOn/DLT  a2/ 

,  ANDY3, ARE  A (30, 10),CEVAP(30) , CFLOD , CLOC L * COn ST , CODE L ( 20 , 10) , 

.  EECY(30#10),EFFCY(20),EFY(20)#EL(30» 10) #EVAPO(12),HEAD(20), ICONS, 
.  IC3E(12,RO),IDBA3C25),IOG3T,IDPR(20),TDv(25),TDVPR,TOV8P,!EVYR, 

.  IPER(12),IPERA,IPOm(20),IPRC20),IPrNCU0),IPwPR,IRF3P(2»20), 

,  IShDv(25),I3HQ(40),ISMR(30),ISPER,ISRCH(40),I3YSR(40). 

,  IUPSTtaO, 18) ,METRC,NCYCL,NOAY3(l2),NDTV,NDlVRt40),NDvSH(25) , 

,  NFLW(40)«NL«NLF»NPWRS,NR£3M,NRE3P(2),NSH2(40)*NSHDV,N3hMN(40), 

.  NShP(40)»N3hP3(40),n3h(J,n3hR,NSPER,NSRTP(2) , N UPS T ( 4 0 ) , 0 VLOD ( 2 0 ) 
COMMON/DLTA3/ 

.  PFMax(20),PkPwR(20, 10), POwR( 12,20 ) ,PwER( 12,22 ),PwRmx( 20) , 

.  P«R3(12,2),  QCAP(30,10),QCONS(12,40),QDIV(12,25), 

,  QOIVA  (12,25),QDI  VR(40)  ,001  VS(12,25)  ,(3t.KG(40)  ,QMAXA  (40)  , 

.  QM1N2( 12, 40 ) ,Qmina( 12,40 ) ,QMIN3( 12,40) ,QMX (12, 40) ,00(30,8), 

,  QOMN(30),QOT(40,8),  QPREP(12,40),QT(20,10)fRSHDV,RSHQ, 

,  RTIOd(25) ,SHDIV(i2,25) ,SHDMX(25) ,SHMX(40),SHMx2f«0) ,SMPMX(40), 

.  SHRT2(12,40) ,3HRTQ(12,40) ,8PSMX(40) ,8TOR(30, 10)  ,STORA(30), 

.  3TRAv(30),3THSH,3YCNS(40) , S YD V (25 ) , 3 YD VA ( 25 ) , 3 YD YS , S Ymsp  ( 2  ) , 

.  3YPR(22),SYPRE(40) ,SYQ(40) ,3YQL(40) ,SYQMN(40) ,SYSH2(40), 

,  SY3hd(25),3YSmQ(40),SYSP(?25,3Y3SP(12,20),3YSYS(22),TL(20, 10), 

,  TLWEL(20), 

.  IOIVE(40),NDIVF(40),IOCPT(40),IDSHT(40),DFUNC(20,40),DPARA(20,40) 

common  /BALT/ 

,  IECON,IE(8,40),IYEAR,NRE3R(40),NSTOR(12,«0,10),OII  (12,40), 

.  3TORL(12*40,8),TMPP(40),TMPX(12) 

Common  /Gamma/ 


,  IRESm(40,30),IDIVR(40,25), 

I E  V  ( 4  0  5 

C  write  FORMATS 

C 

BRANCH  TO  1000 

FROM 

120  0,00 

1000  FORmat(IHI) 

C 

BRANCH  TO  1010 

FROM 

2040,01 

2710,04 

C 

2710,06 

1010  FCRMATdH  ) 

C 

BRANCH  TO  1020 

FROM 

2  R  8  0  ,'  0  3 

2980,07 

1020  ITBNS  *0 
I PN  T« 1 
REMIND  1 
REMIND  3 
REWIND  4 

c  ■ a •  INITIATE  SYSTEM  and  summary  VARIABLES 
DO  1030  M«1,KRES 


1000 

tool 

100? 

1003 

1004 

1005 
10  06 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 
1  0  1  R 
1020 
1020,1 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 
1020 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 
103R 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 
1  04R 

1050 

1051 

1052 

1053 

1054 
1065 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 
1  0  6  5 
10  7  0 


EXHIBIT  4 


1030  3TORi(*“.-0,  1071 

DO  1  0 fe 0  "is  1  ,  KCPT  10  72 

ItV{M),o  ,073 

DO  10U0  K«l,KRES  1  0 7 w 

!RFSm(m,k)bO  107S 

1090  CONTINUE  1076 

DO  1050  Ksl,KUPST  1077 

IUPST(M,K)sO  1 07S 

1050  COMTIN'IF  1079 

do  into  ksi.kper  lose 

DO  1060  L»1 # 1 0  1081 

N3T(}R(K,M,|_)a0  1082 

1060  CONTINUE  1083 

C  BRANCH  TO  1070  PROM  2690,01  108^ 

1070  DO  1080  M»1,*CPT  1085 

NShmn(m)sO  1086 

N$H2(M)sO  1087 

NShP ( m  3  sO  1088 

NSMPS(M)tO  1089 

SHMX(M)«0,  1090 

3HMX2(M)«0,  1041 

SHPmx(m)sO,  1092 

SPSMX(m)»0.  1093 

OINDX(M)  a  o.  1099 

02NDX ( M  )  a  0,  1095 

SQL(M)  s  o,  1096 

SPRE(M)  a  0,  1097 

SQJ(m)  a  0,  1098 

SQmn(M)  a  0,  1099 

SCNS(M)  a  0,  1100 

SQA(m)  a  0.  HOI 

SSHQ(M)  a  0,  1102 

S3M2(M)  a  0,  1103 

30(M)  a  0,  HOa 

QlKGCM)aO,  1105 

C  BRANCH  Tn  1060  PROM  1070.00  1106 

1080  TMPP(M)  a  0,  HOT 

DO  1100  M* 1 , KRE3  1108 

3EVP(M)aO,  1109 

DO  1090  I  a  1 , KPE  R  H10 

FVP(I,M),o.  HU 

C  BRANCH  TO  1090  PROM  1080,01  1112 

1090  CONTINUE  1,13 

C  BRANCH  TO  1100  FROM  1060.01  1119 

1100  CONTINUE  1,15 

ITMPaKPHR+KPwRS  1116 

DO  1110  I  Pa  1 , 1 TMP  1,17 

SPwR (IP)  a  0.  1118 

S3P(IP)»0,  11,9 

33hP ( IP )  ■  0,  1,20 

3PRCIP)  a  0.  1,21 

$P*»X(IP)a99999999,  1,22 

C  BRANCH  to  1110  PROM  1100.02  1123 

1110  PInDX(IP)  a  0,  H2a 

DO  1120  JDbI.KDIV  1,25 

NDV3M(ID)aO  1,26 

3HDMX(ID)aO,  1,27 

SDVA(IO)  a  0.  1,28 

SSHOflO)  a  0.  1129 

SO V  C 1 0  j  a  o,  1130 

C  BRANCH  TO  1120  PROM  1110,01  1131 

1120  DINDX(IO)  a  0,  1,32 

DO  1 1  JO  I Xa J , KPwRS  1,33 

N3RTP ( I X ) a  0  1139 

C  BRANCH  TO  1130  PROM  1120,01  1135 

1  130  3Ym$p  (iX)aO,  H36 

I P  C I TRnS, EQ , 1 )  GO  To  1210  1,37 

C  BRANCH  TO  1190  PROM  2760,01  1138 

1190  DO  1160  Maj.KCPT  ,139 

DO  1150  !«1,8  1,90 

IE(I,M)aO  1191 

C  BRANCH  TO  1150  PROM  1190,01  1192 


EXHIBIT  8 


.  2- 


1150  CONTINUE 

NRESB{M)a«*l 
NOIVR(M)  a  0 
IOIVE (M)aO 
Noivr (M)tO 
IOCPT{M)aO 
IOSHT(M )«0 
IDIV(m)cO 
1CPT (m  )  bO 
I3Y3R(M)bO 
Qm2(M}bO. 

NFL  w ( m ) sO 
C 

1160  IRES(M )bO 
C  aB»  ********** 

CALL  INOUT 
C  ********** 

REWIND  4 
lYRlalYR 
IyEARbI yr 
DO  1170  IPa 1 # NPwR 
1170  EFY(!pjeEFFCY(IP> 

c  read  period  data 

NCTCLa? 

DO  11SO  !•!  » NPER 


1180  CONTINUE 
NCVCLal 
C 

1190  IF(nPwR.LE.O)  GO  TO  1200 
NCYCLa2 

IE(NPwR3.ST,0)  NCYCLaJ 
C 

1200  IECIFl0w.GT,0)*RITE(6, 1000) 
C  aC*  START  ROUTING  COM 

CFLOWal . 

C 

1210  REWIND  2 
SHORTaO, 

3RPLSa.'5 
TFLOWa-1, 

00  1220  HbI.KRES 

3T0RR(NPER,m)bST0R1 (m) 

C 

1220  3TORA(M)b5TOR1 (W) 


BRANCH  TO  1160  FROM  1140.00 


1190 

BRANCH 

TO 

1180 

FROM 

1  170.'02 

1168 

1169 

BRANCH 

TO 

1190 

FROM 

1  170.'03 

1170 

1171 

1172 

branch 

TO 

1200 

FROM 

1  IRO.'OO 

1173 

117« 

1175 

1176 

'aTION  * 

ft  * 

*  ft  i 

»  ft  ft 

******* 

1177 
*  •  1178 

BRANCH 

TO 

1210 

FROM 

mo.'oi 

1179 

1180 

BRANCH  TO  i220  FRO*  1210.04 

3TORA (M ) bSTORI (H) 

do  2640  J»1»NYRS 

IF C IPnT.GT.O)  WRITE  (6»1230)IYR 

PORHAT  (/22H1ANNUAL  INPUT  DATA  FOR  15/ 1 Ow  **INFLn*S) 

DO  1270  MXsl.NFLOw 

**C A RD  TN** 

READ(2,1240)  m,COII(I#m),I«i,12) 

BRANCH  TO  1240  FROM  1350.02 

FoRM*T(2X,I4,2X,12F6t0) 

IFfNPER.flT,  12)  READ (2, 1250) <GII (I,M) , I» 15, NPER) 

BRANCH  TO  1250  FROM  1280.00 
1390,0?  1430,02 

FQRHATfflX, 12F6.0) 

IF(IPnt.GT.O)  WRITE  (6,1260)  * ,  (<JI  I  C I ,  m  ) ,  la  1 ,  NPfc  R  ) 

BRANCH  TO  1260  FROM  1350.03 

F0RMATC4H  3TA,IU,8X,14F8.0) 

BRANCH  TO  1270  FROM  1230.01 

CONTINUE 

IF ( IE  V YR )  1300,1340*  1280 

**C  ARD  ye** 

BRANCH  TO  1280  FROM  1270.01 

RE*D(2, 1250)  (EvAPO(I),Ial,NPER) 

IF(IPnT.GT.O)  WRITE (6, 1290) (FVAPOC I ) , I«l , NPER) 

FORMAT ( 1 4h  **EVaP0RaTI0N/16X,14f8,2) 

GO  TO  1340 

BRANCH  TO  1300  FROM  1270.01 

IF(IPnT.GT.O)  wRITE(6, 1310) 


1101 

lie? 

1183 

1184 

1185 

1186 
1107 
1188 

1189 

1190 

1191 

1192 

1193 

1194 

1470,02  1195 

1196 

1197 

1310.04  1198 
1199 


-  3* 


EXHIBIT  4 


1310  PORMAT(l«H  ^EVAPORATION)  1215 

00  1330  MX*1,NCPT  1216 

MPJCPT(MX)  1 2 1  T 

IF(IEV(M),LC,0)  00  TO  1330  1218 

C  **CARD  EV**  1219 

READC2, 1250)  (EVP(I,M), 1*1, NPER)  1220 

IF(IPNT.ST.O)  WRlTF(6,i320)Mf (E VP d , M) , I* 1 , NPER)  1221 

1320  FORMAT ( UH  STA,I4,8X,14F8,2)  1222 

C  BRANCH  TO  1330  FROM  1310,01  1310,03  1223 

1330  CONTINUE  122“ 

C  BRANCH  TO  1340  PROM  1270.01  1290.01  1225 

1340  IF  (NOVYR.LE.O)  GO  TO  1380  1226 

!F(IPNT,GT.0)MRITE(6,l350)  1227 

1350  FORMAT (25H  **DlVFRSlON  REQUIREMENTS)  1228 

00  1370  I X* i , NOV VR  1220 

C  **CARD  YD**  1230 

READI2, 1240)  M,(TMPp(i)>I«l#NPFR)  1231 

IF(IPNT.GT.0)NRITE(6. 1260)  M, ( TMPP ( I ) , I«1 , NPER )  1232 

ID*IOIV(M)  1233 

DO  1360  1*1, NPER  1234 

QOIV(I,ID)«TmpP(I)*C8TO(I)  1233 

QDIVS(I,ID)pQDIVCI,ID)  1236 

C  BRANCH  TO  1360  FROM  1350.05  1237 

1360  CONTINUE  1238 

C  BRANCH  TO  1370  FROM  1350.01  1239 

1370  CONTINUE  1240 

C  BRANCH  TO  1380  FROM  1340.00  1241 

1380  IF (IPwYR.LE.O)  GO  TO  1460  1242 

IF (IPNT.GT ,0)mRITE(6# 1390)  1243 

1 390  FORMATI21H  **POwER  REQUIREMENTS)  1244 

DO  1420  IP«1,NPMR  1245 

C  **C*RD  YP**  1246 

RE  AD (2, 1250) (POwR(I,IP),Ip1 .NPER)  1247 

IF(IPNT,GT.0)i»RITE(A.1400)  IPR(IP), (POMR(I»IP)»I«l.NPCR)  1248 

C  '  BRANCH  TO  1400  FROM  1470,03  1249 

1400  F0RMaT(«H  3TA,I4.8X.1UF0.O)  1250 

DO  1410  I«1,NPE;R  1251 

IF  CPOWRCI, IP). GT. (■,!))  GO  TO  1410  1252 

ANDYSPND A YS ( I )  1253 

POWRd# IP)PP0FR(I» IP)*PWRMX(IP)*(».024)*ANOY3  1254 

C  BRANCH  TO  1410  FROM  1400.01  1400,02  1255 

1410  CONTINUE  1256 

C  BRANCH  TO  1420  FROM  1390.01  1257 

1420  CONTINUE  1258 

IF  (NPMR3.LE.0)  GO  TO  1460  1259 

IF (IPNT  ,GT ,0)wRITE  (6,  1430)  1260 

1430  FORMAT ( 28H  **3YSTEM  POWER  REQUIREMENTS)  1261 

DO  1450  IX«1,NPWRS  1262 

C  *ACARD  YS**  1263 

READ(2,1250)(FMRS(I.IX)»I«1»NPER)  1264 

IF(IPNT.GT,0)HRITE (6. 1440)IX, (PMRSd# IX), I«1,NPER)  1265 

1440  FORMAT (4H  SYS,I4,8X,14F8,0)  1266 

C  BRANCH  TO  1450  PROM  1430,01  1267 

1450  CONTINUE  1268 

C  BRANCH  TO  1460  FROM  1580.00  1420,01  1269 

1460  IF  (Nf)YR,LE,0)GO  To  1500  1270 

IF (IPNT.GT, 0)*RITE<6. 1470)  1271 

1470  FORMAT (23H  **mJnImum  DESIRED  FLOW)  12T2 

DO  1490  IX«i,nQYR  1273 

C  **C *RD  Y  Q  *  *  1274 

Rt  AD(2,1240)M,(QMXNd,M),I«lfNPER)  1275 

IF ( I PNT ,GT , 0 )  WRITF(6, 1400)  m, ( OMI N (I , m ) , I ■ J , NPfc R  )  1276 

no  1480  1*1, NPER  1277 

QM!Nd,M)«QMINd,M)*CSTOd)  1278 

IF  dFlpK.EQ.M)TMPRd)»QMINd,M)  1279 

c  BRANCH  TO  1460  FROM  1U70.04  1280 

1480  CONTINUE  1281 

C  BRANCH  TO  1490  FROM  1470,01  12B2 

1490  CONTINUE  1283 

c  BRANCH  TO  1300  FROM  1460,00  1284 

1500  IF ( IFLOm ,LE .0 )  GO  to  1520  1285 

DO  1510  1*1, NPER  1286 


EXHIBIT  4 


•  Um 


1S10 

QMlN(i,lFL0w)aTMPR(I)*CFL0w 

1287 

C 

branch  TO 

1520 

FROM 

1SOO.OO 

1288 

1520 

IMNtYR.lE,0)GO  TO  1620 

1286 

rp(IPNT.GT.O)  wRIT£(6,1530) 

1260 

1530 

PGRm*T(16H  **STORAGE  LEVEL ) 

1261 

00  1610  IX«1,NLVR 

1262 

C 

**C  A  RD 

VL** 

1263 

R£ AO (?.,  1540)  L**,IRPT,EACTR,  (STORL(I,h, 

L),Icl,6) 

1264 

1540 

rORMAT(2X#T‘.,z:2/7r8.0l 

1265 

IE(EactR.LE,0.)EACT«*1. 

1266 

IFdRPT.GE.OlGO  TO  1560 

1267 

TEMP«$T0RL(1»H,L) 

1  26B 

00  1550  !«2,NPER 

1266 

8T0RL(!,h,L)«TEHP 

1300 

C 

BRANCH  TO 

1550 

FROM 

1540.00 

1301 

1550 

continue 

1302 

GO  TO  1580 

1303 

C 

BRANCH  TO 

1560 

FROM 

1540.0? 

1304 

1560 

IP(NPeR,LE,6)  GO  TO  1580 

1305 

*E*D(2,1570>(8TORL(I.H.L),!»7,NPER) 

1306 

1570 

EORmat(32X,6F8,0) 

1307 

C 

BRANCH  TO 

1580 

FROM 

1550.01 

1560,00 

1308 

1580 

DO  1560  I»1»NPER 

1306 

8TORL(I#m,L)«STORL(I#H,L)*EACTR 

1310 

C 

BRANCH  TO 

1560 

FROM 

1580.00 

1311 

1560 

continue 

1312 

IE(IPnT.GT.O)  WRITE (6*  1600 )  L *  * , ( 8T0RL C I , M , 

L) » 1*1  , 

NPFR) 

1313 

1600 

EORMATUH  LVL.l4.4H  STA , 1 4 , 1 4F 8 , 0  ) 

1314 

C 

BRANCH  TO 

1610 

FROM 

1530.01 

1315 

1610 

CONTINUE 

1316 

C  «D« 

CONVERT  INPUT  FLOWS  TO  LOCAL  INFLOWS 

1317 

C 

BRANCH  TO 

1620 

FROM 

1520.00 

1518 

1620 

K  X*  1 

1316 

00  1710  MX  a  1,  NCPT 

1320 

m  a  IcPT(MX) 

1321 

IF  (NfLw(M).LE.O)  GO  TO  1660 

1322 

ITMP  a  NFLW(M)AKX-1 

1323 

DO  1630  la  1,  NPPR 

1524 

1630 

QL(I,mJ  a  0, 

1325 

DO  1660  KaKX.ITMP 

1326 

ITEMP  a  MQ ( K ) 

1327 

DO  1650  !■! i NPER 

1328 

QL(I,HiaOLa#M)*QH(l,lTFHP)*RTIO(K)*C8TI(I) 

1326 

IF(JUPOI.LE.O)  GO  to  1650 

1330 

ITPaNuPQI(M) 

1331 

IF(ITp.'LE.O)  GO  TO  1650 

1332 

DO  1640  KJ«1 / I  TP 

1333 

NXalUPOI(H.KJ) 

1334 

QLd,M)aQLd,M)6QLd»NX) 

1335 

C 

BRANCH  TO 

1640 

FROM 

1630.08 

1336 

1640 

Continue 

1337 

C 

BRANCH  TO 

1650 

FRnM 

1630.03 

1630,05 

1338 

C 

1o30,07 

1336 

1650 

continue 

1340 

C 

branch  to 

1660 

FROM 

1630.01 

1341 

1660 

continue 

1342 

00  1680  I«1»NPER 

1343 

IF(QL{I,M),GE,0,)  GO  TO  1680 

1344 

TEMP«(.ql(I#M) )*C80UT(D 

1345 

NRITP 16. 1670>TEMP#QUNIT,m,I 

1346 

1670 

FORMATIFB.O, 1X,A4,6H  ADOFD  TO  , I  3, 1 1 H 

DURING  PER 

,13) 

1347 

OLtl.MjaO, 

1346 

C 

BRANCH  TO 

1680 

FROM 

1660,01 

1660,02 

1346 

1680 

continue 

1350 

KX  a  i TMP  ♦  1 

1351 

GO  TO  1710 

1352 

C 

BRANCH  TO 

1660 

FROM 

1620.03 

1353 

1660 

00  1700  I«1.NPER 

1154 

1700 

QLd.M)  a  OIKI, M)*CSTI(I> 

1355 

C 

branch  to 

1710 

FROM 

1620.01 

1680,02 

1356 

1710 

CONTINUE 

1357 

C 

1358 

•  5- 

EXHIBIT  4 

nn  i73o  mx«i,ncpt 

1359 

m*!CpT(mxj 

1360 

00  1720  I*1,NPER 

1361 

IF (0MIN2(I, m) ,LT,0LkSCm))0min2(i,m)*Qlkg(m) 

136? 

IF  ( QM I  f  I  #  M  j  ,LT,0MIN2(I#M)  )0MIM(I,M).| 

3MIN2d,M) 

1363 

Qmtna(I,m)  a  QMIN ( I ,  m ) 

1164 

QMINS(I,M)»0«INA(I,M) 

1365 

c 

BRANCH  TO 

1720  FROM 

1710.03 

1366 

1720 

CONTINUE 

1367 

C  aEa 

initiate  annual  totals 

1368 

SYOLfNlafl, 

1369 

3YPRE ( H ) eO , 

1370 

SYQI  (H)«0. 

1371 

3YQMN(m)  a  ,001 

137? 

3YCN3(H)aO. 

1373 

3Y0A (H)eO. 

1374 

8YSHQ  C M ) ■ 0  « 

1375 

3Y3H2(«)aO. 

1376 

3Y0(H)  •  ,001 

1377 

IF  ( IRES ( M) , GT ■ 0 )  SyEVP(H)bO. 

1378 

C 

BRANCH  TO 

1730  FROM 

1710.01  1710,02 

1379 

1730 

CONTINUE 

1380 

IF  (NOIV.LE.O)  GO  To  1750 

1381 

00  1740  I0«  1,  NOI V 

1382 

SYOVCIO)  ■  ,001 

1383 

Avnv . 

1384 

C 

BRANCH  TO 

1740  FROM 

1730,02 

1385 

1740 

3 Y3H0 ( ID ) aO , 

1386 

C 

BRANCH  TO 

1750  FROM 

1730.01 

1387 

1750 

iTMpaKPwR+KPWRS 

1388 

DO  1760  I Pa  1,  ITMP 

1389 

3YPHR(IP)«0, 

1390 

3YSP(IP)«0. 

1391 

SYPR(IP)  ■  ,001 

139? 

3YPMX(IP)»99999999. 

1393 

3YSYS(IP)pO, 

1394 

C 

BRANCH  TO 

1760  FROM 

1750.01 

1395 

1760 

3YSHP(IP)  ■  0, 

1396 

1084 

1397 

I  Pa6 

1398 

IFdPHKW.LF.O)  GO  To  1770 

1399 

I  Da  1 

1400 

IPa3 

1401 

C 

BRANCH  to 

1770  FROM 

1760.03 

1402 

1770 

IFCIPNT,GT,0)hRITE(6. 1780)QUnIT, VUNIT, (PUNITCI ), 1*10, IP) 

1403 

1780 

Format  (///  25X.14H  all  P'Ln'Na  in  A4,23H,  storages 

AND  EVAP  IN  A 4 , 

1404 

.  15H,  AND  POWER  in  3A«J 

1405 

C 

1406 

CALL  COMP  (J) 

1407 

C 

1408 

C  aFa 

COMPUTE  CUMULATIVE  A VERAGFS  AND 

SHORTAGE  InDFXES»PRInT 

14Q9 

IF  ( IFLOw , LE , 0 ) 00  TO  1830 

1410 

DO  1820  lal.NPER 

1411 

AND YSaND A YS ( I  ) 

1412 

CQ3bCONST*AN0YS 

1413 

TEMPaO. 

1414 

TMPaO, 

1415 

TPaO. 

1416 

NRESMbNRESR(IFLOW) 

1417 

DO  1790  Kbj,NRE3M 

1418 

IRaIRE3MdFLOw,K) 

1419 

IF (IR.LT, 1 )  GO  TO  1790 

1420 

TEMPaTPMPtSTORBddR) 

1421 

I TPaNL  »nlFa 1 

1422 

TMPaTMP*3TORLd»IR»  I TP) 

1423 

TP  a  TPaSTORL (I # I R, 2 1 

1424 

C 

BRANCH  TO 

1790  FROM 

1780,11  1780,13 

1425 

1790 

CONTINUE 

1426 

IF(TEMP+1,,LT,TMP)  50  TO  1800 

1427 

TFLOwaO, 

1428 

SHRTAaO, 

1429 

GO  Tn  1820 

1430 

*  6» 
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C  BRANCH  TCI  1800  PROM  1790.01 

1800  :f(TFLPH,LT,(«,5))GQ  TO  1820 
TFLOW«mORAQM!NACI,IFl.O*) 

if(tflow,le,o,)go  to  1820 

TMPbQmINA(I,IFLOw)wQA(I,IFLOw)-,1 

IF ( TMP ,LE «  0  , ) GO  TO  1810 

3HRTAb3HRTAwTMP 

TMPbShRTA/TFLOW 

IF  (TMP.'gT,  SHORT  JSHORTbThP 

GO  TO  1820 


c 

1810 

TMPb(tEMP-TP)/(TFL0w*C03) 

IF(Thp;i.T,3RPL3)3RPLSbTmP 

BRANCH 

TO 

1810 

FROM 

1800,04 

C 

BRANCH 

TO 

1820 

FROM 

1780^04 

C 

1820 

CONTINUE 

IF(IPnT.LE.O)GO  TO  2640 

1800,00 

1800,02 

1800.08 

c 

BRANCH 

TO 

1830 

FROM 

1  7  8  0  0  3 

1830  ANYRS  «  J 

RNYR3  «  1,/ANYRS 
AN YR  a  ANYR3-1, 

00  2550  mXb1,NCPT 
H«ICPT(HX) 

JPRNTaIPRN(M)*iPRNT 

ITmP»nRESR(H) 

IF(IECON.LE.O)  GO  TO  2030 
C  ALLOCATE  BENEFITS 

IFCITmP.LE.01  GO  TO  1970 
DO  19^0  I«1#NPER 
3UM»o. 

DO  1910  K«1,ITMP 
IR«IRE3M(M,K) 

IF(IR.LT,0)lR«-IR 
TMPPCK j«QA{I,|R)*OI(I#IR) 

C  BRANCH  TO  1910  FROM  1900.17 

1910  3UM»3UM*THPP(K) 

Tmpx ( j i aSUM 

TMPalTMP 
TMPbJ ./TMP 

C  BRANCH  TO  1920  FRPm  1  920,06 

1920  DO  19«0  Kb  1  *  I TMP 
0II(I,K)«TMP 

IFCSUM.LE.0.)  GO  TO  1940 
IF(3UM*TMPP(>0  .GT, C-,0001  n  GO  to  1930 
3UM»3lJM»TMPP(K) 

Tmpp(k)«0, 

GO  TO  1920 

C  BRANCH  TO  1930  FROM  ]920.’o3 

1930  QII(I,«)*TMPP(k)/3UM 

C  BRANCH  TO  1940  FROM  1920,00 

1940  CONTINUE 

C  BRANCH  TO  1950  FROM  IROO.'iS 

1950  CONTINUE 

DO  19fc0  Kb  1  *  I TMP 

I960  WRITE  f 3 5  (911(7, K), lBl,NPfcR) 

WRITF  (35  (TMPX(I),Ibi,NPER) 

C  BRANCH  TO  1970  FROM  1900,'lU 

1970  00  2020  KB1.8 
ITPbJe (K#m) 

IF(ITp.lE,0)ITPb5 

GO  TO  (1980, 1990,2000,201  0,2020), ITP 
1980  WRITE  (3)  (GA(I,m),Ibi,NPER) 

WRITE  (S)  (0PREP(I,m), lal.NPER) 

GO  TO  2020 

C  BRANCH  TO  1990  FROM  J970.'o3 

1990  write  (3)  (STnR8(I,M),iBl,NPjR) 

GO  TO  2020 

C  BRANCH  TO  2000  FROM  1970,’o3 

2000  IPbIPwR(m) 

WRITE  (3)  (POwtR(I,IP),lBi,NPER) 

GO  TO  2020 


1431 

1432 

1433 

1434 

1435 
1438 
1437 

1436 
1939 

1440 

1441 

1442 

1443 

1790,04  144a 

1445 

1446 

1447 
1446 

1449 

1450 

1451 

1452 

1453 
1459 

1455 

1456 

1457 
1456 

1459 

1460 

1461 
146? 

1463 

1464 

1465 

1466 

1467 
1466 

1469 

1470 

1471 

1472 

1473 

1474 
14  75 

1476 

1477 
1476 
1479 

1920,02  I960 
1481 

1462 

1463 

1484 

1485 

1486 

1487 

1488 
1989 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 
150" 
1501 
150? 


c 


branch  TP  2010  FRPM  1970.03 


2010  IO»IDIV(M)  l503 

IF(IO.LT,0)ID*wlD  1509 

WRITE  (3)  (GDI VA ( I , ID) , 1*1 , NPER)  1505 

C  BRANCH  TO  2020  FROM  1970.00  1970,03  1506 

C  1980,02  1990,01  2000,02  1507 

2020  CONTINUE  1508 

C  *G*  CONVERT  OUTPUT  UNITS  1509 

2030  IMIUNIT.lf ,0)  GO  TO  1900  1510 

SYGL(M)*3YQL(M)wCCF3  1511 

SYPRE(M)«SYPRE<m)i*CCPS  1512 

SYGI(M)*SYQI(M)*CCFS  1513 

SYQACH)B3YGA(M)f»cCES  1519 

SYCN3(H)«SYCNS(H)*CCES  1519,1 

3YG(H)«8YQ(HjwCCES  1515 

3Y3HQ(H)«8YSHG(M)*CCFS  1516 

SYGMN(M)aSYQMN(M)*CCF3  1517 

SY3M2(m)*SYSH2(H)wccES  1518 

ID*IOIV(M)  1510 

18(10, UT, 05  ID*(°I0)  1520 

IF(IO.LE.O)  GO  TO  1850  1521 

SY0V(I0)*SV0V(I0)*CCE3  1522 

SY0VA(I0)«SYDVA(I0)*CCFS  1523 

SYSH0(I0)*SY3HD(lD)wrCF8  1520 

00  1890  I*) ,NPER  1525 

QDIVA(I,ID)*QDlVA(I,ID)*CSOUT(I)  1526 

C  1527 

1890  SHOIV(I,ID)*SHOIV(lf I0)WC30UT(I)  1528 

C  BRANCH  TO  1850  PROM  1830,16  1529 

1850  IP(IRES(M),LE.0)  GO  TO  1880  1530 

STORl (M)aSTORl (M)*CaCFT  1531 

SYFvP(m)*3V|vP(M)wCaCFT  1532 

00  1870  1*1 »NPER  1533 

3T0RB(I,M)*ST0RB(I.M)*CACFT  1539 

EVP(I,M).EVP(I,M)*CACPT  1535 

C  BRANCH  TO  1870  PROM  1850,02  1850,05  1536 

1870  CONTINUE  1537 

C  BRANCH  TO  I860  PROM  1850.00  1538 

1880  00  1890  1 « 1 , NPER  1539 

0CON3(I,m)«qcONS(I,m5*c3OUT(I)  1590 

0L(I,m)«0(.(I,m)*CS0uT(I)  1541 

QPREPCI,M)*QPREP(l,M)*CSOUTCn  1592 

OI(I,M)*QKI,M)*C30uT(I)  1543 

QA(I,M)«QA(I,M)*CSnuT<!)  1549 

SHRTQ(I,m)«3mRTQ(I,m)*C30UTCI)  1545 

IP(Qm2(M),I.E,O..ANCi;om2(M),gT,(-,5))GO  TO  1890  1546 

8HRT2(I,m)«3hrT2(Iim)*C30UT(I)  I54T 

C  BRANCH  TO  1890  FROM  1880,00  1880,09  1548 

1890  CONTINUE  1549 

C  *H*  LONG-TERM  AVERAGES  1550 

C  BRANCH  TO  1900  FROM  1830,05  1551 

1900  SOL(m)  ■  (SQL(M)*anyr*3YQl(m))*RNYRS  1552 

SPRE(M)  a  (3PHE (m)*anyR*3yPRF(m) )*RNYR3  1553 

SOI(M)  ■C3QI(M)*ANYR*3YQI(M))*RNYRS  1559 

3Qmn(m)  ■  (SGmki(m)*anYR  +  3YQmn(m)  )  *  r  n  y  R  8  1555 

8CN3(M)  a  (3CN3(M)*4pgYR  ♦SYCNS(M)  )*RNYR3  1556 

3QA (M)  a  (3QA(m)*ANyR  *3 YQa ( m ) ) *RN YR3  1557 

SQ(M)  a  (3Q(m)**nYR*3YQ(M))*rnYR3  1558 

SSHQ (  M  )  a(33HQ(M)*ANYRY3YSHQ(M))*RNYRS  1559 

33h2(M)b(S8h2(M)*anyry3YSH2(m) )*rnyrs  1560 

0IN0X(M)*QIN0X(M)Y{3Y3HQ(M)/3YQ(M) )*»2  1561 

Q2NOX(M)aQ2Nnx (m)y(sy3H2(M)/3ygmn(m) )*«2 

C  *1*  PRINT  INFLOWS  AND  DIVERSION  1563 

C  BRANCH  TO  2030  FROM  1900.13  1569 

IF (JPRnt.LE, (-1 ) )GO  in  2150  1565 

wRI TE (6, 2090 )  1566 

2090  FORMAT (/l X, 1 11 ( 1H+)  )  1567 

WRITF  (6,1010)  1568 

IF  (NRESR(M).LE.O)  GO  TO  2060  1569 

WRITF (6, 2050 )*, (CPT(M,X),K*l,8),GLXG(M),{IRE3M(Yi,K),Kal,lTMP)  1570 

C  BRANCH  TO  2050  FROM  2060,00  1571 

2050  FORMAT (19, 1X,8A4,9h  LEAKAGE  F8,0,10h  SERVED  8Y  1 8 1 9/ ( 39 X , 2 1  1 4 ) )  1572 

GO  TO  2070  1573 
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C  BRANCH  TO  2060  FROM  ?040.'02  157a 

2060  WRITE  (6,2050)  M , ( CPT ( m , K ) , K« ) , e )  1575 

c  BRANCH  TP  2070  FROM  ?050.'ot  1576 

2070  IP  (IRCS(M) .LE.O)  GO  TO  2090  1577 

ITMP«*jSe9V(M)  1575 

WRITE (6*2080 )(I3ERV(m,k),K«i,ITmP)  1575 

2080  F0Rmat(S3X,7H3ERvING2X, 1914)  1580 

C  Branch  TP  2090  PRPm  2070.00  1561 

2090  IP  (NOIVRCn) ,lE.O)  GO  TO  2110  1582 

ITMP«sjniVR(M)  1585 

WRITE (6,2100)  (ID1VR(M,K),K«!»ITMP)  1584 

2100  PCRHAT  (53X, 16HLOCAI  DIVERSIONS  1719)  1585 

C  BRANCH  TO  2110  PROM  2090.00  1586 

2110  WRITE(6,2I20)IYR,(APERD(I),APRD(I),I«1,NPER)  1587 

2120  PORhAT  ( /5H  VR  I5,4X,4HAVG  (28A4))  1588 

WRITE  (6,2150)  SYQL(h)»(GL(T,m)»I»1,nPEB)  1589 

C  BRANCH  TO  2150  PRPM  2710.07  1590 

2130  FORMAT  (8H  LOC  FLw  P8 . 0 , ( 1 «P8 , 0 ) )  1591 

WRITE (6,2140)  SYPRE(H),(QPREP(I,M),Iil,NPFR)  159? 

c  BRANCH  TO  2190  PROW  ?710.'ofl  1593 

2140  FORMAT  («h  UNREG  P8,0,(14P8,0))  1594 

C  BRANCH  TO  2150  PROM  2030.'00  1595 

2150  ID«iniV(M)  1596 

IP(I0.E0,0,AN0,IRE3(m) ,LE,0)  GO  TO  2170  1597 

IP(JPRNT,LE,(«1))  00  TO  2170  1598 

WRITE(6,2160)SyQI(m),(QI(I,m),I*1,NPER)  1599 

C  BRANCH  TO  2160  PROM  2710.10  1600 

2160  format  (8h  inflow  pb.o, ( i4Fe,o) )  i60t 

C  BRANCH  TO  2170  prom  2150.'oi  2150,02  160? 

2170  IP(I0)2l80, 2230, 2190  1603 

2180  IO«(*in)  1604 

C  BRANCH  TO  2190  FRn*  2170.00  1605 

2190  80 V ( ID )  •  (3DV(ID)*ANYRWSYDV(ID) )*RNYRS  1606 

SDVA(ID)  ■  (3DVA(ID)*ANYRY3Y0VAf ID) )*RNYR$  1607 

SSHD(IP)  ■  (3SHD(I0)*ANYR+8VShD(ID) )*RNYRS  1608 

DINDX(I0)"DIN0X(ID)t(3YSHD(I0)/3YDV(ID) )**2  1609 

IP(JPRNT,LE.(wl))  00  TO  2230  1610 

DO  2196  1*1 , NPER  1611 

TMPX(I)»00IV(I,ID)  1612 

!P(IUNIT.LE,0)GO  TO  2196  1613 

TMPX(I)*TMPX(I)*C300T(I)  1614 

2196  CONTINUE  1615 

WRITE  (6,2200)  3YDV ( ID ) , ( TMPX { I ) , I >1 , NPfc R )  1616 

C  BRANCH  TO  2200  PROM  2730.00  1617 

2200  FORMAT  (8H  REQ  DIV  P8 . 1 , ( 1 4P8 . 1 ) )  1618 

WRITE(6,2210)3YDVA(I0) , (QOI V* ( I , I D ) , I« 1 , NPER )  1619 

C  BRANCH  TO  2210  PROM  27SO.'oi  1620 

2210  FORMAT  (BH  DIVER3N  P8 , l , ( 1 4P6 ,  l ) )  1621 

WRITP(6,2220)3YSMD(ID),  (SHOIVd,  ID)  ,I«1,NPER)  1622 

C  BRANCH  TO  2220  FRO*  2730.‘02  1623 

2220  FORMAT  (8M  3HORTGE  PS . 1 , ( 1 4P8 , 1 ) )  1624 

C  BRANCH  TO  2230  FROM  21?0.'o0  2190,04  1625 

2230  IP  (IRES(M).LE.O)  SO  TO  2490  1626 

C  «J«  PRINT  RESERVOIR  DATA  1627 

3EVP(m)  ■  (3EVP(w)*ANYRfSYEVP(M))*RNYR3  1628 

IP ( JPRNT ,LE , (•! ) )  00  TO  2320  1629 

IP(IPRL.LE.O)  GO  TO  2270  1630 

DO  2250  L  ■  1,  ML  1631 

K  •  nl  •  L  ♦  1  1632 

00  2240  HI, NPER  1633 

2240  I3TOR(I)»STORL(I,M,«)*CACPT  1634 

C  BRANCH  TO  2250  PROM  2230.*oa  1635 

2250  WRITE (6,2260)5, (I3TOR(I) , HI ,NPfcR)  1636 

2260  FORMAT  (6H  LEVEL  14 , 6X , ( 1 4 18 ) )  1637 

C  BRANCH  TO  2270  PRPM  22 30.'03  1638 

2270  DO  2280  HI, NPER  1639 

2280  18708(1)  ■  3TORB ( I , M ) ♦ ,5  1640 

WRITE (6,2290) (I3T0R(I) , HI #NPER)  1641 

2290  FORMAT  (/8H  EOP  STR  8*,(1«I8))  1642 

WRITE(6#2300)(ELEV(I,M),  HI, NPER)  1643 

2300  FORMAT  (7H  EOP  EL  9x,(14P8,2>)  1644 

WRITE(6,2310)3YEVP(mj, (E VP ( I, M), HI, NPER)  1645 
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C  BRANCH  TO  251ft  FROM  2740.01  1646 

2510  FORMAT  (8H  EVAPC  FB.0#(1«F8,0))  1647 

C  BRANCH  TO  2520  FROM  2230.02  164* 

2320  IF  ClPwRfM),U  ,0)  CO  TO  2460  1649 

IP  ■  IP«9(m)  1650 

SPR(IP)  ■  (SPM( IP)*ANYR*3YPR( IP) )*RNYRS  1651 

SPMR(IP)  a  (3PHR{ IP) **nYR+8YPhB( IP) )*RNYRS  lh52 

SSHP(IP)  b  (SShP(IP)*anyR+SYShP(IP) )*RNYRS  1B53 

SSP(I*)B(SSPnP)*AN¥P  +  8YSPUP))*PNvRs  1654 

PlN0Y(lP)BPlNnY(lp)*(SY3HP(lP)/SYP«( IP) )«*2  1655 

IF(IPWKw,tE,0)  00  To  2380  1656 

TFMP«SPR(IP)/(,024*3YDYS)  1657 

SYPR(IP)bSYPR(IP)/(.024*3YDY8)  1658 

DO  2330  IbI.nPER  1659 

TMPtNDA Y3 ( I )  1660 

TMPaTMP*.024  1661 

TMPX(I)«POmR(I,IP)/tmp  1662 

PwER(I,IP)bPwER(I,IP)/THP  1663 

P0WER(I,TP)*P0WER(I,IP)/TMP  1664 

8HRTP(!*IP)bSHRTP(!,TP)/Tmp  l 

C  BRANCH  TQ  2330  FROM  2320,10  1666 

2330  CONTINUE  1667 

TEMPe3Y8HP(IP)/(,02«*3YDYS)  1668 

TMPb3YPNR(IP)/(,024*9YOYS)  1669 

TSYFb8YSP(IP)/I.024*SYDYS)  1670 

IF (JPRNT ,LE, ("l ) )  CO  TO  2430  1671 

WRTTE(6,23«0)3YPR(IP), tTMPX(I),lBl,NPER)  1672 

C  BRANCH  TO  2340  FROM  2740,06  1673 

2340  FORMAT  (7H  REQ  KW  1  X , F8 , 0 , ( 1 4FB , 0 ) )  1674 

WRI TE (6 , 2350 )  T3 YP , (P*fR { I ,  I P ) ,  la  1 ,  NPt R)  1675 

C  BRANCH  TO  2350  FROM  23Q0.01  2750.01  1676 

2350  FORMAT  ( 4H  8Y3  I«  ,  F8  .'o,  ( 1«F  8, 0  ) )  1677 

HRITEC6,2360)TMP,  (P0wERU,IP),I«l#NPER)  1678 

C  BRANCH  TO  2360  FROM  2740.08  1679 

2360  FORMAT (7H  GEN  Kw  1 Xf8 . 0 , ( 1 4E8 . 0  ) )  1680 

wRlTF(6,2370)TFMP»(SHRTP(I,IP)iI*l#NPfcR)  1681 

C  BRANCH  TO  2370  FROM  2400.01  2620.01  1682 

C  2740.10  2750,03  1683 

2170  FORMA 7  <8H  SHQR7GE  F8 . 0 , (1 4F8, 0 ) )  1684 

GO  TO  2430  1685 

C  BRANCH  TO  2360  FRnM  2320.07  1686 

2360  IFfJPRNT.LF.(-l))  Go  TO  2420  1687 

WRITF(6,2390)3YPR(TP) , (POHRCI, IP) ,!al ,NPFR)  1688 

C  BRANCH  TO  2390  FRPH  2750.00  1689 

2390  FORMAT  ( 8H  RfQ  PwR  F8 . 0 , C 1 4F8 , 0  )  )  1690 

IF (I3Y8R(M)tCT,0)HRlTE(6#2350)l3Y3R(M)#3Y3P(IP),  1691 

.  (PwER(I,IP),Ib!,npfr)  1692 

MRITE(6,2400)3YPWR(IP) , (POwt R ( I , IP ) , 1*1 , NPFR  )  1693 

C  BRANCH  TO  2400  FROM  2750,02  1694 

2400  FORMAT  (8H  POWER  F« . 0 * (1  4F8 , 0 )  )  1695 

MRITE(6,2370)3Y3HP(IP),  (SHRTPd.  IP),  lal.NPER)  1696 

IF<ISY3R(M),GT,0)*»lTE<6,2«l0)9Y3VSClP),(3YS3P(I,IP),lBt,NPER)  1697 

2410  FORMAT  1 8H  3Y3  3RT  Fe . 0 , ( 1 4F8 , 0  ) )  1696 

C  BRANCH  TO  2420  FROM  2380,00  1699 

2420  TMPbSYPwR(IP)  1700 

TEMPa3YSHP(IP)  1  TO  1 

C  BRANCH  TO  2430  FROM  2330.04  2370,01  1702 

2430  IF(IPOM(IP),LE,o5  SO  TO  2460  1703 

DO  2440  IbJ.NPER  1704 

TmpbPOWRP( I , IP)  1705 

IF  (TMP.lT. 3YPMX(IP) )  SYPMX(IP)bTMP  1706 

IF  (TMP,LT.3PMX(IP))  3PMX(IP)tTMP  1707 

c  BRANCH  TO  2440  FROM  2430.01  1708 

2440  CONTINUE  1709 

IF (JPBNT.GT, (-1 )) WRITE (6, 2450)  1710 

,  SYpmx(IP),(PO“RP(I,IP),Ib1,nPER)  1711 

c  BRANCH  TO  2450  FROM  2440,01  2760,01  1712 

2450  FORMAT  (8H  PEAK  km  F6.0,  (luES.0))  1713 

C  BRANCH  TO  2460  FROM  2320.00  2430,00  1714 

2460  IF(JPRNT.LE.(-1))  CO  TO  2550  1715 

WRITE (6, 2070) (ICS£(I,M),Iai ,NPER)  1716 

2470  FORMAT  (5H  C*3E  11X,(1«I8))  1717 
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WRITE <6, 2480)  CCNTRL(I,m),I«i#NPER)  1718 

2480  FORMAT  C6H  LEVEL  1  OX , ( 1 4F8.2) )  1719 

C  BRANCH  TO  2490  FROM  ?230.'00  1720 

2490  IF(JPRNT,L£,(-1»  GO  TO  2550  1721 

C  *K«  PRINT  OUTFLOWS  1722 

IF  (IRES{M),GT.0)wRITE(6,2500)  1723 

,  SVCNS(M), (QC0N5(I,M),I»1#NPFR)  1729 

C  BRANCH  TO  2500  FROM  2490.'01  2770,00  1725 

2500  FORM*T(/8H  CSV  REL  F8 , 0 , ( 1 4F8 , 0 ) )  1726 

WRITE (6,2510)SVOA(M) , (QA(I,M), i«l ,NPFR)  1727 

C  BRANCH  TO  2510  FROM  ?7?0.’ot  1728 

2510  FORMAT  (8H  RIV  FL*  F8 , 0# ( 1  4F8, 0  ) )  1729 

00  2515  I«1#NPBR  1730 

TMPX(I)«GMINA(I,M)  p31 

IF(IUnIT.GT.O)  TMPX(I)*TMPX(I)*CSOUT(I)  1732 

2515  CONTINUE  1733 

WRITE (6, 2520 )SYQ(M),  (TMPX(I)  *  1*1  , NPE  R )  1734 

C  BRANCH  TO  2520  FROM  2770.’02  1735 

2520  FORMAT  C8H  OES  FLW  F8 , 0 » ( 1 4F8 , 0 ))  1736 

WRITE (6,2530)  S YSHQ { m ) , ( SHR TO ( I , m) , i« i , nPER )  1737 

C  BRANCH  TO  2530  FROM  2540.‘oi  2770,03  173B 

C  2770,06  1739 

2530  FORMAT  ( 8H  SHORTGE  F8 , 0 , ( 1 4F8 , 0 ))  1740 

IF  (QM2(M),LF,0,,AND,QM2(M),GT,(-,n)  GO  TO  2550  1741 

OC  2535  I*1#NPFR  1742 

TMPX(I)*QMIN2(I,m)  1743 

if ( ioNi t«gt, o)  TMPx(n*TMPxd)*csouT(n  1744 

2535  CONTINUE  1745 

WRlTE(fc,2540)SVGMN(M),(TMPX(n,I*l,NPER)  1746 

c  BRANCH  TP  2540  FROM  2770.'05  1747 

2540  FORMAT  C8H  MIN  FL-*  F8, 0 , ( 1 4F 8 ,0 ) )  1748 

WRITE(6*2530)SYSH2(M), (SHRT2(I,M), I»j,NPFR)  1749 

C  fcND  OF  00  LOOP  STARTING  AT  1830+3  1750 

C  BRANCH  TP  2550  FROM  1B30.03  2460.00  1751 

C  2490,00  2530,01  175? 

2550  CONTINUE  1753 

IF(I3mRY,LE.O)GO  TO  2560  1754 

IF(IRG<17.GT,0)wRiTE(4)3YPPE,QPREP  1755 

IF{IRG(2).CT,0)wRITE(4)9YGA,GA  1756 

IF(IRG(3),GT,0)wRlTF(4)SYDVA,GOIVA  1757 

IF(IRG(4).GT,0)wrITE (4)3YSH0#8H0IV  1758 

IF ( IRG (5) ,GT,0)wRITF(4)3Y8hq,SHRTO  1759 

IF(IRq(6) ,GT,0) wRITfc (4)3YSm2,ShRT2  1760 

IF(IRGf7).OT,0,OR,IRG(8) ,GT,0)WRITE(4)STOR1 ,9TnRB  1761 

IF(IRg(9).GT,o)WRITE(4)ELEV  176? 

IF( IRG( 10 ) ,GT,0) WRITE (1 )SYGI,OI,3TORB,ELEV,SYEVP,fcvp,SYpwR,PnNER,  1763 
,  SY8HP,3HRTP,SYPMX,POwRP,SYGA,QA  1764 

C  BRANCH  TP  2560  FROM  ?550.'ot  1765 

2560  IYR*IvR*l  1766 

IF  (NPWRS.LE.O)  GO  TO  2640  1767 

C  3Y3TEM  POWER  SUMMARY  1768 

DO  2630  I X* 1 , NPwRS  1769 

wRI TE ( 6 , 2570  )  I  X  1770 

2570  F0RMAt(//«9X,6HSYSTEmI2, 14H  pqwER  Summary)  1771 

C  BRANCH  TO  2580  FROM  27lO.'o5  177? 

2580  FORMAT(l3* IX.6A4)  1773 

WR ITE (6 »  2590 )  1774 

2590  FORMAT ( 1 3H  SYSTEM  TOTAL)  1775 

Mx*KPwR*IX  1776 

SPR(Mx)»(3PR(MX)*ANYRtSYPR(MX) )«RNYRS  1777 

SPWR(mX)*<SPWR(MX)*ANYR*SYPwR(mx) )*rnyRS  1778 

SSHP(mX)*(SSHP(MX)*ANYR+SYSHP(mx) )*RNYRS  1779 

PINOX(MX)»PINDX(MX)*(SYSMP(MX)/SYPR(MX) ) **2  1786 

WRITE(6.2600)SYPR(MX), (PWRS(I,IX),I«1, NPFR)  1781 

2600  F0RMATf8w  RfcOUIRD  15F8.0)  178? 

wRlTE(fc,2610)SY3P(MX), CPwER(I,mx),I*1,npe R)  1783 

2610  F0rmat(8M  USABLE  15F8.0)  1784 

WRITE(6,?620)SYPWR(MX) , (POWER (I, MX) , 1*1 ,nPER)  1785 

2620  FORmAt(8w  TOTAL  15FB.0)  1786 

WRITE (6,2370)SYSmP(mX) , ( ShRTP ( I , MX ) , I c 1 , NPRR )  1787 

C  BRANCH  TT  2630  FROM  ?560.'o2  1788 

2630  CONTINUE  1789 
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C  End  OF  00  LHOI*  STARTING  AT  1220*1  i TOO 

C  BRANCH  TO  2640  FROH  1220,01  1620,01  1791 

C  2560,01  1792 

2640  CONTINUE  1795 

IF (IFLOw,LE»0,0fl,IPNT*GT,0)GO  TO  2700  1794 

C  «L«  SUCCESS  I  Vf  APPROXIMATIONS  OF  YIELD  1795 

IF (TFLOw.LT, («,5) )3hORT»,3  1796 

IF (SHORT, LF,0,) GO  To  2650  1797 

IF ( SHORT, LE ..01 )GO  TO  ^670  1796 

IF(SHORt.GT,,3)  SH0RT»,3  1799 

TPPpCFLOW  1800 

CFLOw»CFLOh*(1, •SHORT)  1801 

IF (TPP.GT , 1  ,  )  GO  TO  2660  1802 

GO  TO  2680  1803 

C  BRANCH  TO  2650  FROM  2640,05  1804 

2650  IF ( SRPLS, LE ,,01)  GO  TO  2670  1605 

IF (SRPLS, GT,  ,15)  SRPLS*. 15  1806 

TPP*CFLOw  1607 

CFLOH«CFLOH*(1,*SRPlS)  1606 

IF (TPR.GT , 1 , )  GO  TO  2680  1809 

C  BRANCH  TO  2660  FROM  2640,08  1610 

2660  CFlOW«(CFLOH*TPP)*,5  1811 

C  BRANCH  TO  2670  FROM  2640,04  2650,00  181? 

2670  IPnTwI  1813 

C  BRANCH  TO  2680  FROM  2640.09  2650,04  1810 

2680  I TRN3«1  1815 

I YR* I YR 1  1816 

WRITF(6,2690)IFlOw,CFlOW  1817 

2690  FORMAT (21H0FL0H  REQUIREMENTS  AT  I3,14h  MULTIPLIED  BY  F6,3)  1616 

GO  TO  1070  1819 

C  PRINT  LONG-TERM  AVERAGES  1820 

C  BRANCH  TO  2700  FROM  2640,01  1821 

2700  IYR«IYR-1  1822 

WRITE (6, 2710)  IYR1.IYR  1823 

2710  FORMAT  (/  33H  AVERAGES  FOR  PFRIOD  OF  OPERATION  15, 2h  •  15)  1824 

1825 

DO  2760  mx»1,NCPT  1826 

M«ICPT(MX)  1827 

WRITF  (6,1010)  1628 

WRITF  (6,2580)  M,  (C*T ( M, K ) , K*1 , 6 )  1629 

WRITE  (6,1010)  1830 

WRITE  (6,2130)  SQL  ( m )  1631 

WRITE  (6,2140)  SPRE(M)  1832 

ID«IDIV(m)  1833 

IF(IO,NE,O.OR.IRES(M),6T,0)  wRITE(6, 2160)301 (m)  1834 

I F ( 1 0 )  2720,2740,2730  1835 

2720  I0«  (-10)  1836 

C  BRANCH  TO  2730  FROM  2710.11  1637 

2730  WRITE  (6,2200)  SDV(iri)  1836 

WRITF  (6,2210)  SOVA(TO)  1839 

WRITE  (6,2220)  SSHD(TO)  1840 

C  BRANCH  TO  2740  FROM  2710.11  1841 

2740  IF  (IRFS(M) ,IE,0)  GO  TO  2770  184? 

WRITE  (6,2310)  SEvP(M)  1843 

IF  (IPWR(M).LE.O)  Gn  TO  2770  1844 

I P« I PwR ( M )  1845 

IF (IPWKW.LE.O)  go  Tq  2750  1846 

TEMP«SPR(IP)/(,024*SYOYS)  1647 

WRITE  (6,2340)  TEMP  1848 

TEMP«8PWR(IP)/(,024*SYOYS)  1849 

WRITE  (6,2360)  TEMP  1650 

TtMP«SSHP(IP)/(,024*SY0Y3)  1851 

WRITF  (6,2370)  TEMP  1652 

GO  TO  2760  1853 

C  BRANCH  TO  2750  FROM  2740,04  1654 

2750  WRITE  (6,2390)  SPR(IP)  1855 

I? (ISY3R(M).CT,0)WRITE(6,2350) ISYSR(M) ,SSP(IP)  1856 

WRITE  (6,2400)  SPwR(iP)  1857 

WRITE  (6,2370)  SSHP(IP)  1656 

C  BRANCH  TO  2760  FROM  2740,11  1859 

2760  IF ( IPOw ( IP) ,LE, 0 )  GO  TO  2770  I860 

WRITF  (6,2450)  SPMX(IP)  1861 
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c  BRANCH  TO  277  0  FRCI*  2740.00  2740,02  18 6? 

C  2780,00  1863 

2770  12  (IRES(M),GT,0)  wRITE  (6,2500)  SCNS(M)  1864 

WRITE  (6,2510)  SQA(M)  1865 

WRITE  (6,2520)  3G(M)  1B66 

WRITE  (6,2530)  88HQ(M)  1867 

IE(QM2(M),LE.0,.AND,0*2(M),GT,{.,n)  GO  TO  2780  1868 

WRITE  (fc,25a0)  SQMN(m)  1869 

WRITE  (6,2530)  33H2(M)  1870 

C  BRANCH  TO  2780  FROM  2710.02  2770,04  1871 

2780  CONTINUE  187? 

IE ( I UPOT , GT , 0 )  GO  TO  1140  1873 

C  »M*  PRINT  SHORTAGE  INDEXES  *******************  1874 

IE  (NOIV.LE.O)  GO  TO  2810  1875 

00  2790  10*1, NDIV  1876 

OINOX(IO)  *  OINDX(ID)*100,*RNVRS  1877 

IE(SOV(IO),LT..002,OR,RTIOD£ID),LT.O,)DINDX(ID)«»1.  1878 

C  BRANCH  TO  2790  FROM  ?7SO.‘o3  1879 

2790  CONTINUE  I860 

WRITE(6,2800)(IDV(ID),OINDX(ID),ID«1,NDIV)  1881 

2800  EQRmat ( /26H  DIVERSION  SHORTAGE  INDEX  7 ( 1 6 , E 7 , 3 ) / (9 ( 16 , E7 . 3) ) )  1882 

C  BRANCH  TO  2810  FROM  2780.'02  1883 

2810  DO  2820  mx«1,NCPT  1884 

M  ■  ICPT(MX)  1885 

QINDX(M)  ■  QINDX(M)*100,*RNYRS  1866 

IF(SQ(M)tLT,,002)QINDX(M)«.l,  1887 

Q2NDX(m)  •  Q2NDX(M)*100,*RNYRS  1888 

IE (SOmn(M) ,LT, ,002)Q2NDX(H)«.l  ,  1889 

C  SQMN  AND  S8H2  USED  A?  TPMBCPARV  v»,“IABLFS  1893 

SQMN(MX)«QINDX (M)  1891 

C  BRANCH  TO  2820  FROM  2810.00  1892 

2820  SSh2(hx)«G2NDX(M)  1893 

IE  (NpwR.LE.O)  GO  TO  2870  1894 

DO  2830  IP*l,NPwR  1895 

PINDX(IP)«PINDX(IP)*100,*RNYRS  1896 

IF(SPR(IP),IT, ,002)PINDX(IP)»-1,  1897 

C  BRANCH  TP  2830  FROM  2820.02  1898 

2830  CONTINUE  1899 

WRITE (6, 2840) (IPR(IP),PINDX(IP),IP*1,NPWR)  1900 

2840  FORMAT! /21H  POWER  SHORTAGE  IN0EX5X, 7(l6,E7, 35/(9(16, F7. 3) ) 5  1901 

IE  (npwrS.LE.O)  GO  TO  2870  1902 

DO  2850  IX«l,NPwRS  1903 

MXsKPwRwIX  1904 

PINDX(mx)«PINDX(mx)*100,*RNYRS  1905 

C  BRANCH  TO  2850  FROM  ?840.’o?  1906 

2850  WRITE(6,2860)IX,PIN0X(MX),NSRTP(IX),SYMSP(IX)  1907 

2860  EORMAT(l3H  POWER  SYSTEMI2,?X, 14HSHDRTAGF  INDEXF7 , 3 ,  1908 

,  17H  NO,  OF  SHORTAGES  I3,2X,16H  MAX,  SHORTAGE  ■  F10.0)  1909 

C  BRANCH  TP  2870  FROM  2820.'oi  2840.01  1910 

2870  WRITE(6,2880)(ICPT(m),SQmn(m),m«1,nCPT)  1911 

2880  Format ( /24H  DES  FLOW  SHORTAGE  INDE X2X , 7 C 16, F7 , 3 ) / ( 9 ( 16 , F7 , 3 )) )  1912 

WRITE (6, 2890) (ICPT(m),SSh2(m),m«1,ncPT)  1913 

2090  FORMAT ( /24H  min  FLOW  SHORTAGE  INDEX2X, 7(I6,F7, 33/(9(16, F7, 3)))  1914 

WRITE(6,2900)  1915 

2900  F0RMAt(/5X,  90H  DIvRSIPn  SHORTAGES  DES  flow  SHORTAGES  “IN  FLOW  S  1916 

.HOSTAGES  SYS  PWR  SHORTAGES  AT  SITE  PWR  3HRTGS  )  1917 

WRITE (6,2910)  1918 

2910  F0RMAT(4H  STA  5X,5(2X,9hN0  max  8X))  1919 

DO  2950  mx«1,NCPT  1920 

MrICPT(MX)  1921 

8hMX(m)bShMX(m)*CS0uT( 1 )  1922 

8HMX2(M)«3HMX2(M)*csOUT(1 )  1923 

ID* ID  I V ( “ )  1924 

lE(ID.GT.O)  go  TO  2930  1925 

WRITE (6,2920)m,N3HMN(h) ,SHMX (M),NSM2(M) ,SHMX2(M) ,N8HP3(m)  ,  1926 

,  SPSmX(m) ,NShP(M) ,ShPmX(M)  1927 

C  BRANCH  TO  2920  FROM  2910.'07  J928 

2920  F0RMAT(I4,8X,1H*,6X,1H. ,4(112, F7.0))  1929 

GO  TO  2950  1930 

C  BRANCH  TO  2930  FROM  2910.06  1931 

2930  ShdmX(I0)*ShdmX(I0)*CSOUT(1 )  1932 

wRITE(6,29UO)m,ndvSH(IO),ShdmX(ID),NShmn(M),Sh“X(M),NSh2(m),  1933 


-13- 


FXHIBIT  4 


,  SMMX2(M),NSWPS(M),3PSmX(M),NSHP(m),8HPMX(m)  1939 

C  BRANCH  TO  2990  F'RPM  2930,0  1  1915 

29  410  F0RMAT(I9,  !9,F7,0,9(H2,F7.0) )  1916 

C  BRANCH  TP  2950  FROM  2910,01  2920,01  1937 

2950  CONTINUE  193ft 

00  2980  Mxsi.NCPT  1939 

*»ICPT(MX)  1990 

JFfIRESCM).lE.O)  Gn  TQ  2980  1991 

C  mNm  STORAGE  FRePOE NC  Y  1992 

«R!TE(6,2960)  nyRS.M, ( APERD (I) , APRR ( I ) , I« 1 » NPER )  1993 

2960  PORM*t(/22H  STORAGE  FREQUENCY  PER  I3,18h  yEARs  AT  LOCATION  13/  1999 

,  1 1H  CONS  POOL  ,28*9)  1995 

WRITE ( 8,2970) C (NSTnR(!,M,K),I« 1,1 2 ),K«l, 10)  1996 

2970  FORM 4 T ( 1 1 H  99-100  PfT  12IS/11H  95-  99  PCT  12I8/11H  90-  95  PCT  1218  1997 

,  / 1 1 H  60-  90  PCT  1218/1 1H  70-  80  PCT  1216/1 1H  60-  70  PCT  1218  199« 

,  / 1 1 H  90"  60  PCT  1218/1 1 H  20*  90  PCT  12I8/11H  I-  20  PCT  1218  1999 

,  / t 1 H  0-  1  PCT  1218)  1950 

C  BRANCH  to  2980  from  2950,01  2950,03  1951 

2980  CONTINUE  1952 

ENO  FILE  3  1953 

IF(IECON.GT.O)  CALL  ECON  1959 

IF(ISMRY,LE,0)S0  Tn  1020  1955 

END  FIlE  1  1956 

END  file  a  1957 

CALL  REARNG  1958 

GO  Tn  1020  1959 

ENf)  I960 
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SLOCK  DAT*  1461 

CO"*a*j/DTADM/  1462 

,  kCPT,KPWR,KPWRS,KRES,KUP3T,KDIV,KL»KPFR,KQIL,K3ERV,KUPQI  1463 

COMmon/DTaIN/  1464 

,  PUNIT(6),BLNK, IBLK,FLWU, V0LU,FLMT, VLMT,aM03C12),KDAYS(125,  1463 

,  INUM(iO>>LTRJ,LTRC,!KODP<24>,KODE(l3), FIRST, LTDP  1466 

******************************************************** *******  1467 

*  change  dimensions  to  variables  in  common/dtarg/  to  allow  *  146* 

*  Enough  space  for  the  format  specification  assigned  in  thf  *  1969 

*  data  statement  below  *  1470 

CCMmOn/OTARG/  1472 

,  IZERO(J),IONEC3),ITHO(3),JZEROC3),JONE(3),JTwn(3).  1473 

,  KZER0(J).K0NE(3)#KTW0(3),NEMT(3)  1474 

LOGICAL  FIRST  1475 

DATA  kCPT,KPWR,KP*RS,KRES,KUPST,KDI V,KL»KPER,KOIL,KSERV,KUPQI  1476 

,  /  40,  20,  2,  30,  IB,  25,  8,  12,  40,  14,  10  /  1477 

DATA  PUN!T/ttHKIL0*aH*ATT,4HS  , 4HTH0U , 4MS AND , UH  KWH/  1478 

DATA  8LNK/4H  /, 1BLK/4H  /  1474 

Data  PIWU/4M  CP 3/  ,  VOL U/4H ACF T / ,  FLmT/4HM3/s/»  VLmT /4HK  M3/  1980 

DATA  AM0S/4H  J AN  , 4H  FEB,4H  M A R , 4H  ApR,«H  MAV,4H  JUN,4H  JUL,4H  AUG,  1481 
i  4 h  3EP,4H  0CT,4H  NOV , 4H  DEC/  1482 

DATA  KDAVS/31 ,28,31 ,30,31 ,30,3! ,31 ,30,31 ,30,31/  1483 

DATA  !NUM/1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H4,1H  /  1484 

DATA  uT«J/1MJ/»LTRC/1HC/,LTDP/2HOP/  1485 

DATA  IKOOE/2HCP,2HIO,2HLF,2HEC ,2HSV,2HDV,2hdS,2H0D,2H0R,2hQm,  I486 

,  2HR1 ,2HRL,2HR8,2HflA,2HRO,2HRE,2HPl ,2HPR,2HPQ,2HPT,  1487 

,  2Hpp,2HRS,2HPF,2HED/  I486 

DATA  kOOE/  2HIN,2HVE,2h£v,2HVD,2MYP,2HYS,2hyq,2hyl,2hBN,2H8P,  1484 

,  2hB V , 2HT 1 , 2HER/  1490 

DATA  FIRST/, TRUE,/  1491 

C  CARDS  1992-2011  DELETEO 

DATA  NFMT  /24H(9H*  SUM  ,14F8,01  /  A2012 

DATA  KTWO  /24H(9H*AVERAGE  ,14F8,2)  /  A2013 

DATA  KONE  /24H(9H+AVERAGE  ,14P8,1)  /  A2014 

DATA  kZERO  /24H{9h*AVEPAGE  , 14F8, 0 1  /  A2015 

DATA  JTWO  /24H  ( 1  h  ,U9X,FS,2)  /  02016 

DATA  JONF  /24H(1H  ,119X,Ffl,l)  /  D2017 

DATA  JZERO  /24H(iH  ,119X,F8,0>  /  D2018 

DATA  itwO  /24H(lH*,I6,2X,14Fd,2  /  A2019 

DATA  JONF  /24H(1H+,I6,2X,14F8,1  /  A2020 

DATA  IZERO  /24H(1H*, 16, 2X, 14F8.0  /  A2021 

END  202? 
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SUBROUTINE  InOUT  2025 

DIMENSION  ICRD(20),iBR(40),l8V(S),NTSRV(40),ITSRV(30,40)  2024 

COmmon/OTad”/  2025 

,  KCPT#KRwR,kPwRS,kReS,kUPST,KOI V,KL,kPeR.kOIL,KSERV,KUPQI  2026 

COMMON/DTAIN/  202T 

,  PUN!T(6),BINK,IBLK,PLMU,  VOI.U,PUMT,  VLMT#  AM0s(l2),KDAYSa2)  i  202ft 

.  INUM(10),LTRJ,ITRC,IkODF(2«),KOOE(13), FIRST, LTDP  202R 

COMMON/IN/  2030 

.  CACFT,CCFS,CSTI(12),CSTO{12),DINDX(25),IFLOW,IPRL,IPRNT,  2031 

.  IP*YR,lS£RV(30,19),ISMRY,l3TCR(i2),IUNI7,IUPDT,  2o  ie 

,  luPOKUO, 10), IyR, JuPQI,*Q<90),NDVYR,NFLOw,NLYR,N3ERv(30),  2033 

.  NQYR,NUPQI C  aO  3 ,PINOX(22),QINOX(«0),QMJN(12,UO),Q2NDX(40),  2034 

.  RTIO(90),3CnS(40),SDV(25),3DVA(25),SEVP(30),SPMX(22),SPR{22),  2035 

.  SPRf (40),3PWR(22),3Q(40),3QA(40),3GI ( 40 ) , SQL ( «0 ) , 3QMN ( 40 ) ,  2036 

,  S3NO(25),SSMP(22),SSMO(«0),SSh2(40),SSP(22),STOR1 (30),TMPR(12)  2037 

.  #C80UT (12)  2037,1 

COMMON  /AtPH*/  203# 

,  APERD(l2),APRO(12),IDIV(40),IPWR(40),IYRi,NPWR,NRrS,QM2(40),  2039 

,  TJTLE(60),IPWKW  2040 

COMMON  /BETA/  2041 

,  NYRS,  IRC(IO) *CPT(4q,83 ,ICPT(40)i IRES(40),NCPT,NPER,OUNIT,VUNIT  2042 

COMMON/OLTA1/  2043 

,  eNTRl(12,UO),QL(12,40),SYQl(40),Ql(12,40),STURB(12,30),  2044 

,  ELEV(12,30),SYEVP(30),EVP(12,30),SYPMR (22), POWER (12,22),  2045 

,  SYSmP(22),SmRTP(12,22),SYPMX(22),PO*RP(12,20),STQA(40),QA(12,405  2046 

C0MMQN/DLTA2/  2047 

,  ANDYS, ARE A (30, 10) ,CFV*P(30) ,  CFLOD , CLOCl , CONST , C QDEL ( 20 , 10),  2048 

,  EFCY(30,10),EFFCY(20' ,EFy (20) ,EL (30,10 3,EVAPO(12),HE AD (20), ICONS,  2049 

.  ICSF(12,40),IOBAS(25),IDG3T,IDPR(20),IDV(25),IDVPR,IDV8P,IEVYR,  2050 

.  IPER(12), IPERA,IPOw(20) , IPR(20), IPRN(40), IPWPR, IRESP(2,20),  2051 

.  !SHDV(25),ISMQ(40).I3HR(30),ISPER,I3RCH(4O),lSYSR(40),  205? 

,  IUPST(40, 18) ,METRC.NCYCL,NDAYS(12),ND!V,NOIVR(40),NDV3H(25) ,  2053 

,  NP|_w(40) ,NL,NLF,NPwR3,nRESM,NRESP(2),N3h2(40) , NSHD v , NShmn ( 40 ) ,  2054 

,  NSMP(40),NSMP3(40) ,NSMQ,NSHR,NSPER,N3RTP(2) ,nUPST(40),OVLOD(20)  2555 

COMMON/DLTA3/  2056 

.  PFMaX(20),PKPmR(20.10),POwR(12,20),PmER(12,22),PwRmX(20),  2057 

,  PmRS ( 12,2),  QCAP(30,10),OCON3(12,40),QDIV(12,25),  2058 

.  QDIVA(12,25),QOIVRcuo),QDIV3(12,2S),QLKG(40),QMAXA(40),  2059 

.  G“ I N2 ( 1 2  4C) ,Qm:nA(12, 40), QMIN3(12, «0), QMx(12, 40), 00(30,8),  2060 

,  QOmn(30),QOT(40,8).  QPREP(12,40),OT(20,10),RSMDV,RSHO,  2061 

,  RTino(25),SHOlV(12,25),SMOMX(25),SHMX(40),3HMX2(40),3HPMX{40),  2062 

.  ShRT2(1?,40) ,SmRTQ(12,40) , SPSMX (40 ) , STOR { 30 , 1 0 ) , STORA ( 30 ) ,  2063 

,  3TRaV(30),STRSm,SYcnS(40),SYOV(25),3YDVA(25),SYDYS,SYM3P(?),  2064 

.  SvPR(22) ,3yPRE(40) ,SyQ(40) ,3yQL(40) ,3YQ“N(40) ,3YSM2(40) ,  2065 

,  SY3H0(25),SYShG(40)>3YSP(22),SYSSP(12,20),SYSYS(22),TL(20,10),  2066 

,  TLwEL (20 ) ,  2067 

.  IDIVF(40),ND1VP(40),IDCPT(40),I!)SmT(40),OFUNC(20,40),DPARA(20,40)  206ft 

COMMON  /BALT/  2069 

,  IECON,IE(8,40),IyEaR,NRP3R(40),N3TOR<12,4'',10),O1I(12,40),  2070 

,  STORL(12,40.8),TmPp(4O),TMPx(12)  2071 

COMMON  /Gamma/  2072 

,  IRESM(40,30),IOIVR(40.25),  IFV(UO)  2073 

C  2074 

LOGICAL  FIRST  2075 

EQUIVALENCE (NT SRV( 1 ) ,NSTOR(l, 1 , l )) ,  ( IT8RV ( 1 , l ) , NSTOR ( 1 , 6 , 1 ) )  2076 

C  «A«  2077 

C  BRANCH  TO  3000  From  4430,01  4530,03  2078 

3000  FORMA  T ( 1 m  )  2079 

CLOCL«l.  2"80 

CFLOObI,  2081 

I U  N I T ■ 0  208? 

m( T  RC  ■  0  2083 

CNSTI*1,  2084 

CN3TOB1,  2085 

CCFS«1.  2086 

Gt'NITBFL*U  2087 

CACFTtl,  2  08  b 

VUNITBVCLU  2^89 

JPRnTbO  2090 

I PRL ■ 0  2091 

IPakmir  209? 

I U  R  D  T  b  o  2093 


•  1  6« 


FX-IBIT  4 


uuu 


c 

3010 


C  «B» 

C 

C 

3020 


c 

3030 

3000 

C 

3050 

3060 


3070 

C 


3080 

C 

3090 

C 

3100 

C 

3110 


C 

3120 


C 

3130 


C 

3100 

C 

3150 


IDGST«0 

2094 

ISMRY«0 

2095 

1ICQn«o 

2096 

NPER«t2 

2097 

IPER*«1 

209B 

00  3010  1*1,12 

2099 

APERO ( I ) eBLNK 

2100 

APRD(l)*AM03(I) 

2101 

NQAY3(n»K0AYS(I) 

2102 

EVAPnmto. 

2103 

CSOUT(l)*t. 

2103,1 

BRANCH  to 

3010  FROM 

3  0  0  0  2  0 

2104 

CONTINUE 

2105 

IE  V  YR» 1 

2106 

I P W  YR« 1 

2107 

NPWR3*0 

2100 

I  X*0 

2109 

ICNT«0 

2110 

IU3T*0 

2111 

2112 

IF(,NoT,FIRST)GO  TO  3030 

21  13 

a aC  ARD 

T  1  A  A 

2114 

READ(5,3020)  TITLE 

21  15 

BRANCH  TO 

3020  FRnn 

3030.00 

3000,00 

2116 

E0RmAT(2X* A2, 19A4) 

2117 

EIRSTb. FALSE. 

2110 

GO  TO  3050 

2119 

BRANCH  TO 

3030  FROM 

30 1 0  Jo 7 

2120 

RE  AD (2,  1020) (TITLE (I), I* 1,20) 

2121 

IP (EOF ,2)  0920,3000 

2122 

RE  AD (2, 3020) (TITLE (I), 1*21 ,60) 

2123 

BRANCH  TO 

3050  FROM 

3020.0? 

2124 

WRITE(6,3060) 

2125 

POBHAT(1HI,30(1H*)/31H  •  RESERVOIR  SYSTEM  ANALYSIS  */ 

2126 

31H  *  723.X6-L2030  1  JULY  197"  */ 1 X , 30 ( 1 ha ) ) 

2127 

HRITE (6,3070)  TITLE 

2120 

P0RHAt(/(20X,A2, 19A0) ) 

2129 

aaCARO 

J  1  A  A 

2130 

READ  (5,3080)  N YRS , I YR , NL , I  CONS , I D VSP , I P WPR , I D VPR , I  FLOW , J' 

UPQ I 

2131 

HR I TC ( 6, 3090  IN YRS, I YR,NL, I CONS, JO VSP, 

IPWPR, IDVPR, 

IFLOW, JUPQI 

2132 

BRANCH  TO 

3080  FROM 

3070,01 

3260.00 

2133 

3270, 

00  3280,00 

3310,00 

3610.04 

2134 

5790, 

00  3600,00 

3820.00 

2135 

F0RMAT(2X, 16,918) 

2136 

branch  TO 

3090  FROM 

3070.02 

2137 

FCRmAT(/50H  NYR3  i YR  NL  ICONS  JDVSP  IPWPR  IDVPR  TELOw  JUPQI 

2130 

/9I6) 

2139 

branch  to 

3100  FROM 

3120.08 

3160.01 

2140 

READ  (5,3110)  ICP,IBRN, ICRO 

2141 

BRANCH  to 

3110  FRriM 

3120,06 

2142 

FQRmat(2A1 ,A2, 19A0) 

2143 

ICNT*ICNT*1 

2144 

00  3120  1*1,10 

2145 

IF(IBRN.EG,INUM(D)  GU  TO  3130 

2146 

BRANCH  TO 

3120  FROM 

3110.02 

2147 

CONTINUE 

2140 

1*10 

2149 

IBR(ICNT)*10 

2150 

IFUCd.EG.LTROGO  TO  3140 

2151 

IF(ILST,FO,I)ICNT»ICNT-l 

2152 

IB**  ( ICNT  )  *6 

2153 

wRITE<4  ,311O)ICD,I0RN,ICRO 

2154 

I L  ST* 1 0 

2155 

GO  TO  3100 

2156 

BRANCH  TO 

3130  FROM 

3110.03 

2197 

IF (ILST.Ea,I)ICNT«iCNT-l 

2150 

IBR(ICNT)*I 

2159 

IF (I. EG, 10)  I BR ( ICNT ) *6 

2160 

BRANCH  TO 

31«0  FROM 

3120.03 

2161 

«RlTE(4  ,3150)  ICRO 

216? 

BRANCH  TO 

3150  FROM 

366  0.' 0  0 

3670.02 

2163 

F0R“ATf2X,A2,19AU) 

2164 

•  17. 


EXHIBIT  « 


r%  r*  o  r%  o 


1160  ILST»IBR  ( ICNT )  2}65 

IF(IC0.C(5,lTRJ)GO  T n  iioo  2166 

ENfiFILE  u  2167 

REWIND  4  216# 

IC  NTs  0  2 1 69 

JBRNsO  2170 

C  BRANCH  TO  3170  FROM  3190,01  3240,00  2171 

C  3250,01  3260,01  3270,02  3280,02  2172 

C  3300.02  3310,01  3320,02  3330,03  2173 

3170  ICNTbICNTm  2 1  7 At 

IBBNsIBR(ICNT)  2175 

(50  TO  (3180, 3200, 3260, 3270, 3280, 3290, 3310, 3320, 3330, 3340), IBRN  2176 

3180  PRINT  3190  2177 

3190  FnR*AT(3«M  EXTRA  CARO  READ,  HAS  BEEN  IGNORED)  2178 

00  TO  3170  2 1 79 

C  * *C A RD  J2**  2180 

C  BRANCH  TO  3200  FROh  3170.02  2181 

3200  RE  AO ( 4  ,3210)CL0CL#CRLOD,IUNlT,MFTRC,CN3TI,CNSTO,CCFS,flUNlT,  2182 

.  CACFT,VUNIT  2183 

3210  FORMaT(2F8.0,2I8»3F8,0,43,A4,F8,0,4X,A4)  2184 

IF ( CLOCL , IF  ,  0  » )  CLDcL ■ 1 ,  2185 

IF (CFUOD.LE.O, )  CFLOO«1.  2186 

IFduMT.GT.OJGO  TO  3225  2187 

CCFS»1.  2188 

CACFT«1.  2189 

OUNITbFLwu  2190 

VUNIT»VOLU  2191 

C  BRANCH  TO  3220  FRON  3210,03  2192 

3220  IF(mFTRC,LF.O)GO  TO  3225  2193 

QUNIT«FLmT  2194 

VUNIT«VLHT  2195 

C  BRANCH  TO  3225  FROM  3220.00  3220,01  2196 

3225  IF (CN3TI)3240, 3230, 3240  2197 

3230  CNSTIbI.  2198 

C  BRANCH  TO  3240  FROM  3220.00  2199 

3240  IF(CNSTO)3170, 3250,3170  2200 

3250  CN3T0«1.  2201 

50  TO  3170  2202 

C  aaCARD  J3 a  a  2203 

C  BRANCH  TO  3260  FROM  3170,02  2204 

3260  RF  A 0 ( 4  ,3080)  IPRNT, IPRL, IPWKw, IUPOT , IDG3T  2205 

00  TO  3170  2206 

C  aacaRD  J  4  *  *  2207 

C  BRANCH  TO  3270  FROM  3170,02  2208 

3270  RtAD(4  ,3080)  ( I RG ( I ) , I « 1  ,  1 0 )  2209 

I JMR V« 1  2?10 

GO  TO  3170  2211 

C  aacaRD  J5**  2212 

C  BRANCH  TO  3280  FROM  3170,02  2213 

3280  REA0(4  ,  3080  )  NPFRfIP£RA  22jti 

IF(NPER.LE.0)NPIR«12  2215 

IF (I?ERA,LF.0)IPERA«1  2216 

JBRN« J3RN* 1  2217 

GO  TO  3170  2218 

C  *»CARD  J6*a  2219 

C  BRANCH  TO  3290  FROM  31T0.02  2220 

3290  READ(4  ,3300)  ( APERO ( I ) , APRD { I ) , I ■ 1 , NPE R )  2221 

3300  FORMAT ( 20 A 4 )  2222 

JBRN»JBRNa2  2223 

GO  TO  3170  2224 

C  ••CARD  JTaa  2225 

C  BRANCH  TO  3310  FROM  3170,02  2226 

3310  REA0C4  ,3080)  (NOA VS ( I ) , !■ 1 , NPE R)  2227 

GO  TP  3170  2228 

C  a*c  ARD  JBaa  2229 

C  BRANCH  TO  3320  from  3170,02  2230 

3320  BE  A  0 ( 4  ,332S)(EvAPn(I),I«l,NPER)  2231 

BRANCH  TO  3325  FROM  3320,00  3330,01  2232 

381  0.03  3810,04  3820,03  3820, 0*4  2233 

3830,00  3840,00  3850,00  3990,00  2234 

4000,00  4010,00  4020,00  4050,00  2235 

4060,00  4070,00  4080,00  4090,00  2236 


*  1  8» 


IKMISIT  4 


c 

4100,00 

2237 

3325 

FORMAT ( 10F8,0) 

2238 

IEVYRbO 

2239 

80  TO  3170 

2240 

C 

BRANCH  TO  3330 

FROM 

3170. OF 

2241 

3330 

!X«!X+1 

2242 

C 

••CARD 

J9** 

2243 

READ (4  ,3325)  (PWR8( J , I X ) , !«1 ,NPER ) 

2244 

NPWRSat  X 

2245 

60  TO  3170 

2246 

c 

BRANCH  TO  3340 

FROM 

3170,02 

2247 

3340 

IFCJBrN.NE.I)  SO  TO  3370 

2248 

IF  ( IPERA ,EQ , 1)60  TO  3370 

2249 

C 

ARRANOP  MONTHS  AND  OATS  ACCORDING  TO  IPERA 

2250 

KaO 

2251 

JJ«IPER*-2 

2252 

TCMPbaPRD(I) 

2253 

ITMPbnDAYSCI) 

2254 

DO  3360  I«IPERA,NPER 

2255 

k*ka  i 

2256 

JK«I 

2257 

APRD (K )■ APRD ( I ) 

2258 

NDAYS(K)*NDAV8(I) 

2259 

c  >  c  ■ 

2260 

IP(JJ.EQ.O)  GO  TO  3360 

2261 

DO  3350 

2262 

APRD(JK)*APRD(JK.l ) 

2263 

NDAYS{JK)«NDAYS(JK.l) 

2264 

2265 

c 

BRANCH  TO  3350 

FROM 

3340.12 

2266 

3350 

CONTINUE 

2267 

C 

BRANCH  TO  3360 

FROM 

3340.06 

3340.11 

2268 

3360 

CONTINUE 

2269 

KaKM 

2270 

APRD(K)«TEMP 

2271 

NDAyS(K)»ITMP 

2272 

C 

branch  to  3370 

FROM 

3340.00 

3340.01 

2273 

3370 

WRITE  (6, 3380  KIOCUCFLOD,  IUNI T  ,  mF TRC  , CNST I , 

CNSTO, 

CCFS, OUNIT 

* 

2274 

,  CACPT,VUNIT,IPRnT,IPRL,IP*K*,iuPDT,IDGST 

2275 

C 

branch  TO  3380 

FROM 

3370.00 

227^ 

3380 

FORM A T ( /52H  CLOCL  CFLOD  IUNIT  M£TRC  CN3TI 

CNSTO 

CCFS 

2277 

,  50H  OUNIT  CACFT  VUNIT  IPRNT  IPRL  IPWKW 

IUPDT 

IDGST 

2278 

,  /2F6.2,2I6,2F10.3,F8.3,2X,A4,F8,3,2X,A4,5I6) 

2279 

CONSTal ,98346 

2280 

IF(MEtRC.6T.O)CON3TbB6,4 

2281 

IF(ISmRY.LE.O)  GO  TO  3400 

2282 

WRITE(6, 33905(1, IRG(I),I«1, 10) 

2283 

3390 

FORMAT ( /9 (5H  I RG ( 1 1 , 2h ) • , 1 2 , 1 h  ),SH  IRS(I2, 

2H)a,  12) 

2284 

C 

BRANCH  TO  3400 

FROM 

3380.05 

2285 

3400 

WRITE (6, 341 0)NPER,  IPfHA 

2266 

3410 

format ( /bh  NPtRai3,6H  ipera«I4) 

2287 

WRITE  (6,3420)  (APERD(I),APRD(I),I»l,NPfcR) 

2266 

3420 

F0RMAT(/7H  PERIOD  4X,2BA4) 

2289 

WRITE  (6,3430)  (NDAYSd  )  ,  I ■  1  ,NPER) 

2290 

3430 

FORMAT  (6H  NDAYS  5X,(14I8)) 

2291 

KaO 

2292 

DO  3490  I«1,NPER 

2293 

IPER(I)  ■  IPfRAtI-1 

2294 

IF  (IPERdJ.GT.NPER)  IPER(I)elPER(I)-NPER 

2295 

ANDYS  a  NDAYS(I) 

2296 

KbK*N[)A  YS  (  I  ) 

2297 

CSTI(I)  a  1, 

2296 

IF  (CNSTI) 34  40, 3460, 34  50 

2299 

3440 

CSTI(J)  a  (.CnSTI )/(CON3T*AnDv$) 

2300 

GO  TO  3460 

2301 

C 

BRANCH  TO  3450 

FROM 

3430.08 

2302 

3450 

CST I ( j )  a  CNST! 

2303 

C 

BRANCH  TO  3460 

FROM 

3430.08 

3440,01 

2304 

3460 

C8T0(I)  a  1, 

2305 

IFCCNSTO)  5470,3485,3480 

2306 

3470 

CSTO(J)  ■  (-CNSTO)/(eON3T*ANDYS5 

2307 

GO  TO  3485 

2306 

•  19. 


FXmjrtT  u 


c 

BRANCH  TO 

3480 

FROM 

3460,01 

2309 

3480 

CSTQd)  ■  CN3TO 

2310 

3485 

IFdUNIT.LE.O)  CO  TO  3490 

2310,1 

C30UT(!)*CCF$ 

2310,2 

IF  (CCFS.GT ,0* )  CO  To  S«90 

2310,3 

CSDUTd)*CON3T*ANDY3*(»CCf  8) 

2310,4 

C 

BRANCH  TO 

3490 

FROM 

3430,02 

3460,01 

2311 

C 

3470,01 

2312 

3490 

CONTINUE 

2313 

3YDYS  ■  K 

2314 

IFdUNlT.GT.O.AND.CCFS.LE.O. )  CCF8*CONST*SYDYS* (« 

CCFS) 

2314,1 

NCYCL*2 

2315 

If tIFVYR)3530, 3500, J530 

2316 

3500 

WRITE (6, 3510) (EVAPO(I) ,  I*1,NPER) 

2317 

3510 

FORMAT  (6H  EVP  5X,{laF8,2)) 

2318 

DO  3520  1*1 ,NPER 

2319 

If  (EVA POCI), ST, ,01 }  CO  TO  3530 

2320 

C 

BRANCH  TO 

3520 

FROM 

3510,01 

2321 

3520 

CONTINUE 

2322 

C 

BRANCH  TO 

3530 

FROM 

3490,03 

3510,02 

2323 

3530 

If (NPWRS.LE.O)SC  TO  3560 

2324 

DO  3540  I X* 1 , NP wR  S 

2325 

3540 

WRITE  (6, 3550)  I X, (PwR9(I *  I X ) *  I* 1 » NPER) 

2326 

3550 

FORMAT (4H  SYS, 12, 5w  PWRS,14P8,1) 

2327 

C 

BRANCH  TO 

3360 

FROM 

3530,00 

232« 

3560 

NLP  *2 

2329 

IFdFLOW.GT.O.OR.IPRNT.ie,  (-1)  )  IPnTb-1 

2330 

DO  3570  M«i ,KRES 

2331 

NSERV(M)*0 

2332 

C 

BRANCH  TO 

3570 

FROM 

3560,02 

2333 

3570 

I PWR ( M ) »0 

2334 

NCPT*0 

2335 

NRES*0 

2336 

NDI V*0 

2337 

NPWR*0 

2338 

C  *D* 

2339 

DO  3580  M«i,KCPT 

2340 

NUPQI ( M ) ■ 0 

2341 

C 

BRANCH  TO 

3580 

FROM 

3570.05 

234? 

3580 

NUP3T ( M ) *0 

2343 

DO  3590  IX*1,KP»R3 

2344 

3590 

NRF  SP ( I  X ) *0 

2345 

K  X  ■  0 

2346 

IP*0 

2347 

WRITE (6,3600) 

2348 

3600 

FORMAT(/23H  CONTROL  POINT  SEQUENCE  ) 

2349 

C 

BRANCH  TO 

3610 

FROM 

4660.00 

2350 

3610 

MDIVoO 

2351 

MRE3*0 

2352 

MRWR«0  * 

2353 

NT  8*0 

2354 

C 

«*C ARD 

CP** 

2355 

RE  AD ( 4  ,  3080)  m,mdN3T,ITmp 

2356 

If  (M.GT.KCPf.OR.MDNST.GT.KCPT)  GO  TO  4900 

2357 

NCPT*NCPT+1 

2358 

ICPT(NCPT)oM 

2359 

IPRN(M)«ITMP 

2360 

REWIND  u 

2361 

I L  3  7  «  0 

2362 

K«n 

2363 

JL«0 

2364 

INCLOf "JUPQI 

2365 

C 

BRANCH  TO 

3620 

FROM 

3650,01 

3670,05 

2366 

C 

3680,00 

3680,05 

3690,01 

2367 

3620 

READ  (5,3630)  lC0,Ic°D 

2368 

C 

BR  A  NC  H  TH 

3630 

FROM 

3670,01 

2369 

3630 

fOPHAT(2A2, 19A4) 

2170 

DO  3640  1*1,24 

2371 

If (ICD.NE.IKODE (I ) )  GO  TO  3640 

2372 

IfdLST.fO.I)  GO  TO  3660 

2373 

Ifd,EQ,3)  I  NCLCf  *0 

2374 

K  *K*  1 

2375 

EXHIRIT  a 


-20- 


nn  nno  no 


I8R(K)«I  2376 

ILST«I  2377 

SO  TO  3660  2378 

C  BRANCH  TO  3690  FROM  3630.01  3630.02  2379 

3600  CONTINUE  2360 

PRINT  3650,  ICD,ICRD  2361 

c  BRANCH  TO  3650  FROM  <1750.00  2382 

3650  FCR“*r(22H  UNRECOGNIZABLE  CARO*  2a2,19A«,9H,  IGNORED)  2363 

GO  TO  3620  2389 

C  BRANCH  TP  3660  FRPH  3630.01  3630.07  2385 

3660  HRlTEfU  ,3150)  ICRD  2386 

!F(I.E0.12.AND.ICRD(2).NE.IBLK)  JL*JL+1  2367 

IR(I.e0.1.0R.I.E0.2<t)  GO  TO  3700  2386 

IFC.NE.7)  GO  TO  3660  2369 

ITMP«o  2390 

C  BRANCH  TO  3670  FROM  3670.03  3670. 09  2391 

3670  I TMP*I THPt 1  2392 

READ  (5,3630)  ICD,ICR0  2393 

WRITE(9,  3150)  ICRD  239« 

IF(ITmP,EQ.1,0R,ITMP,E0.3)  GO  to  3670  2395 

IF(ICD.NE.LTDP)  GO  TO  3670  2396 

GO  TO  3620  2397 

C  BRANCH  TO  3660  FROM  3660.03  2398 

3680  IF(I.NE.13)  GO  TCI  3620  2399 

NTAB»i0  2900 

DO  3690  L"2 , 20,2  2901 

IFCICRO(L) , NE. IBL5 )GO  TO  3690  2902 

NTAB«(L-2)/2  2«03 

GO  TO  3620  2909 

C  BRANCH  TO  3690  FROM  3680.02  3680.03  2905 

3690  CONTINUE  2«06 

GO  TCI  3620  2907 

C  BRANCH  TP  3700  FRPH  3660.02  2906 

3700  EN0FILE  9  2909 

REWIND  9  2910 

KBRtO  2911 


BRANCH  TO  1710  FROM  3790.01  3750.01  2*12 

3780,01  3790.02  3800.02  3B10.07  2913 

3820.05  1830,02  3890,02  3850.02  2919 

3870.02  3980.01  3990,01  9000.01  2*15 

9010.01  9020,01  9090,06  9050.02  2916 

9060,01  9070,01  9080.01  9090.01  2917 


9100,01  2918 

3710  KBR*KBR*1  2919 

IBRN«jBR(KBR)  2920 

C  CP  ID  LF  EC  SV  DV  DS  QD  OR  QM  2921 

GO  TO  (9110,3720,3760,3790,3800,3810,1820,3830,3890,3850,  2922 

C  R 1  RL  R3  RA  RG  RE  PI  PR  PO  PT  2923 

,  3860,3880,3990,9000,9010,9020,9030,9050,9060,9070,  2929 

C  PP  PS  PE  ED  2925 

,  9080, 9090, 9100, 9110), IBRN  2926 

C  **G ARP  ID**  2927 

C  BRANCH  TO  5720  FRO*-  37l0.'o2  2926 

3720  RE  AD  (  9  , 3730  >QDV  ,  QMN,  QM2  (m  ) ,  OMXX ,  ( CPT  (  m  ,  I ) ,  I«  1 , 8  )  292  9 

3730  FORm*T(9F8,0,8A9)  2930 

IF(OMxK,LE.O.)OHXX*999999,  2911 

DO  3790  1*1, NPER  293? 

QHX (I , m ) •QMXX  2933 

0HIN(I,H)  ■  QHN  2939 

C  BRANCH  TO  3790  FRON  3730.01  2935 

3790  QMIN2(T, M)*QH2(M)  2916 

IF (QDv.LE.O. )  GO  TO  3755  2937 

ND!V«nOIV*1  2936 

IF (NDIV.GT.KDI V)00  TO  9900  2939 

HD  I V ■  1  2990 

DO  3750  1*1, NPER  2991 

QDIV(!,N0IV)«QDV  2992 

C  BRANCH  TO  3750  FROM  3790.05  2993 

3750  CONTINUE  2999 

3755  IF(INCLOF.LE.O)  GO  TO  3710  2995 

ITMP«i  2996 

ICR0(1)*H  2997 
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THPP(n»i. 

2448 

GO  TO  3775 

2449 

c 

••CARD 

LF** 

2450 

c 

BRANCH  TO 

3760  FROM 

3710,02 

2451 

3760 

RE  AD  (4  ,3770)1  THP,  fiCRO(I)  ,THPP (I),  I«1 

,ITMP) 

2452 

3770 

FORM AT ( 18, 4 ( 18, F 8,0) , 1 8/ ( 5 ( F8 . 0 , ! 8 ) ) ) 

2453 

3775 

NFi_M(M)«jTMP 

2454 

00  3780  !*1 «  TTMp 

2455 

KXsKX-i 

2456 

MQ(Kx)«ICR0(!) 

2457 

RTJO(KX)aTMpP(I) 

2456 

C 

BRANCH  TO 

3780  FROM 

3770.02 

2459 

3780 

CONTINUE 

2460 

GO  TO  3710 

2461 

C 

••CARD 

EC** 

2462 

C 

8RANCH  TO 

3790  FROM 

3710,02 

2463 

3790 

READ(4  ,3080)(IE(I,m),I«1,8) 

2464 

If CON«l 

2465 

GO  TO  3710 

2466 

C 

••CARD 

3V** 

2467 

C 

BRANCH  TO 

3800  FROM 

3710,02 

2468 

3800 

RE  AD (4, 3080)  NTS , ( I TSRV ( M , I ) , I»1 , NTS ) 

2469 

NTSRV(m)«NTS 

2470 

GO  TO  3710 

2471 

C 

8RANCH  TO 

3810  FROM 

3710,02 

2472 

3810 

IF(M0I V.LE.0)  NDlVeNOlVtl 

2473 

IFtNOlV.GT.KOIV)  GO  TO  4900 

2474 

MD!V«1 

2475 

C 

••CARD 

D  V** 

2476 

RE  AD (4  ,3325)(QDIV(I,NDIV),I«1,10) 

2477 

IF(QOIV(2,ndIV)  .GE.O.’.X^O.NPFR.GT,  10) 

2478 

,  RE  AD (4, 3325) ( GDI V( I , NDI V) , 1*1 1 , NPFR ) 

2479 

QDV«-1 , 

2480 

GO  TO  3710 

2461 

C 

••CARO 

DS** 

2482 

c 

BR  '  ,,rH  TO 

3820  FROM 

3710.02 

2483 

3820 

RE  AD  ( 4  ,3080)  IDIvF(M),NDIvF(h  DCPT(m) , IDSHT(M) 

2484 

IF(IOCPTCM).LE.O)  IOCPT(M),m 

24B5 

ITMPoNDIVF(H) 

2486 

READ (4  ,3325)  ( DFUNC ( 1 » M) , I« l , I THP ) 

2487 

RE  AD (4  ,3325)  (DPaR* < I , M) , m , i T*p) 

2488 

GO  TO  3710 

2489 

C 

••CARD 

OD** 

2490 

C 

BRANCH  TO 

3830  FROM 

3710.02 

2491 

3830 

RE  AD (4  ,3325) (OMINf i,m),I«1 ,NPFR) 

2492 

QMNb.1 . 

2493 

GO  TO  3710 

2494 

C 

••CARD 

QR** 

2a95 

C 

BRANCH  TO 

J 840  FROM 

3710,02 

2496 

3890 

RE  AD (4  ,3325) C0mIN2(I,m),I«1,npER) 

2497 

Qm2(m)«h1 , 

2498 

GO  TO  3710 

2499 

C 

**C ARD 

OM** 

2500 

C 

BRANCH  TO 

3850  FROM 

3710,02 

2501 

3850 

READ(4  ,3325) (QmX(!,h),I«1,npER) 

2502 

QMXXb-1, 

2503 

GO  TO  3710 

2504 

C 

BRANCH  TO 

3860  FROM 

3710.02 

2505 

3860 

IF (m.Gt.KRES)  GO  TO  4900 

2506 

C 

••CARD 

R 1  ** 

2507 

RE  AO f 4, 3870)  CEVAPCm) , ATMP,QL*G{m) , I3RCH(4) 

2508 

3870 

F09MAT(3F8. 0,718) 

2509 

MRES»l 

2510 

30  TO  3710 

2511 

C 

BRANCH  TO 

3880  FROM 

3710,02 

2512 

3680 

DO  3690  L"1»NL 

2513 

3690 

Lsvaj-o 

2514 

DO  3960  Nt 1 , JL 

2515 

C 

••CARD 

RL** 

2516 

RE  AD (4, 3900)  L,MT,IRPT,FACTR, ( STORK  I, t 

M), 1*1,6) 

2517 

<0 

O 

o 

FOrm*t(3I8,7F8,0) 

2518 

18V(L)"1 

2519 
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EXHIBIT  u 


IFCFACTR.IE.O,)  FACTR*i, 

2520 

IFtlRPT.GE.O)  00  TO  3920 

2521 

T£MR*stORL(1,M,L) 

2522 

00  3910  1*2,NPER 

2523 

3T0RL(I#M#L)*T£MP 

2524 

c 

BRANCH 

TO 

3910  FROM 

3900.05 

2525 

3910 

continue 

2526 

00  TO  3940 

2527 

C 

BRANCH 

TO 

3920  FROM 

3900.03 

2528 

3920 

If (NPfR.LE.6)  GO  TO  3940 

2529 

RE AO (4, 3930)  ( STORl ( I , M, L > # I«7 # NPER) 

2530 

3930 

PORHAT(32X*6P8,0) 

2531 

C 

BRANCH 

TO 

3940  FROM 

3910.01 

3920.00 

2532 

3940 

00  3950  I«1,NP|R 

2533 

ST0RL(I,h,L)»8T0RL(I,M,L)*PACTR 

2534 

C 

BRANCH 

TO 

3950  FROM 

3940.00 

2535 

3950 

CONTINUE 

2536 

C 

BRANCH 

TO 

3960  FROM 

3690.01 

2537 

3940 

CONTINUE 

2536 

00  3900  NU 

2539 

If  aSVCU.EO.DCO  TO  3980 

2540 

DO  3970  I»t»NPER 

2541 

#T0RL(I,M,L)«3T0RLa#H#L-l) 

2542 

C 

BRANCH 

TO 

3970  FROM 

3960.03 

2543 

3970 

CONTINUE 

2544 

C 

BRANCH 

TO 

3960  FROM 

3960.01 

3960,02 

2545 

3900 

CONTINUE 

2546 

GO  TO  3710 

2547 

C 

**CARD 

R8*  * 

2540 

C 

BRANCH 

TO 

3990  FROM 

3710  ,’o2 

2549 

3990 

READ (4  ,3385)(8TOR(M,K),K*1,10) 

2550 

00  TO  3710 

2551 

C 

**CARD 

R  A  *  * 

2552 

C 

BRANCH 

TO 

4000  FROM 

5  7 1  0 .'  0  2 

2553 

4000 

RE  AD ( 4  ,3325)<AREA(M,K),K«1,10) 

2554 

GO  TO  3710 

2555 

C 

*«CARD 

RQ** 

2556 

C 

BRANCH 

TO 

4010  FROM 

3  7 1  0 .’  0  2 

2557 

4010 

READ(«  ,3125)(QCAP(M,k),K«1,10) 

2550 

GO  TO  3710 

2559 

C 

**CARP 

RE** 

2560 

C 

BRANCH 

TO 

4020  FROM 

3710.02 

2561 

4020 

RE  AD ( 4  ,3325)(El<h,k),K«1,10) 

2562 

GO  TO  3710 

2563 

C 

BRANCH 

TO 

4030  FROM 

3710.02 

2564 

4030 

IP*IP*t 

2565 

C 

••CARP 

P)** 

2566 

RE  AD  14.4040)  OVLOD(IP),PNRHX(IP),TLNEL(IP).IDPR(IP),IPnw(IP), 

2567 

,  Effcy(IP)*HP3V8#PfHAX(IP) 

2568 

c 

BRANCH 

TO 

4040  FROM 

4030.01 

2569 

4040 

fORMAT  (F8,0#2F8,0.2I6»F8,0#I8,P8 

i.O) 

2570 

NPWR«nP<*R*  1 

2571 

IF(NPWR.GT.KPWR)  go  TO  4900 

2572 

HPWR«l 

2573 

IF (OVLOD(IP) . IE .0 . )  OVlOO(IP)*l ,15 

2573,1 

IF(HP3VS,OT,NPHR8)NPWRS«HP3YS 

2574 

IF(NPnRS,GT,KPHR8)GO  TO  4900 

2575 

GO  TO  3710 

2576 

c 

••CARP 

PR  •  * 

2577 

c 

BRANCH 

TO 

4050  FROM 

3710.02 

2570 

4050 

RE  AD  (4  , 3325 )(POwR(I, IP), 1*1, NPER) 

2579 

IPHYR.O 

2500 

GO  TO  3710 

2581 

C 

••CARD 

PQ*  * 

2502 

C 

BRANCH 

TP 

4060  FROM 

3710.02 

2583 

4060 

RE  AD ( a  ,3325)(QT(IP,k),k«i,10) 

2584 

GO  TO  3710 

2585 

C 

••CARP 

PT«* 

2586 

C 

branch 

TO 

4070  FROM 

3710.02 

2587 

4070 

REA0(4  ,3325)(Tt(IP,K),K*l,10) 

2500 

GO  TO  3710 

2589 

C 

••CARP 

PP** 

2590 
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c 

BRANCH  TO 

4060 

FROH 

3710,02 

2591 

4060 

READ (4  ,3325)(PKPWR(lp,K),K»l,10) 

2592 

80  TO  3710 

2593 

C 

**C ARD 

PS** 

2194 

C 

BRANCH  TO 

4090 

FROM 

3710.02 

2595 

4090 

READ (4  ,S325)CCQO£t(!P,K),K«l,l0) 

2596 

60  TO  3710 

2597 

C 

**C  ARD 

PE** 

2598 

c 

BRANCH  TO 

4100 

FROM 

1710,02 

2599 

4100 

READ(4  ,3325)  (EEC  V  (IP,*  >  ,  Kb  1 , 1  0  ) 

2600 

60  TO  3710 

2601 

C 

BRANCH  TO 

4110 

FROM 

3710,02 

2602 

4110 

WRITE (6, 4120)  M» (CPT(M,K)»K«1,8) 

2603 

4120 

FORMAT(/lX,U6(lH*)/8H  *  CP  NO  I4,1X,8a4,2h 

*/lX,46(JM*)) 

2604 

WRITE (6, 4  150)  W0N3T,MD1V,MR£S,MPWR,NTS, 

I PRN ( M ) , 

2605 

,  NFLw(M) ,00V,QMN,QM2(H) ,QMXX 

2606 

C 

BRANCH  TO 

4130 

FROM 

4120.01 

2607 

4130 

EORHATf/  36H  mDnST  mDIV  MRES  HPWR  nTSRV 

IPRN 

2608 

,  36H  NFIW  8DV  QMN  0M2 

OMXX 

/7I6, 

4P8.0) 

2609 

IFCNFLW(M) .LE.O)  60  TO  4150 

2610 

ITMPbNFCW(m) 

2611 

WRITF(6,4140)(ICRD(K),THPP(K),K«1,ITHP) 

2612 

4140 

format ( i sh  mo  and  rtio«  6(ie,F8,3)j 

2613 

C 

BRANCH  TO 

4150 

FROM 

4130,02 

2614 

4150 

IF ( IECON ,LF«  0 )  CO  TO  4170 

2615 

WRITE (6, 4 160) (J#IE(J,M),J*i,8) 

2616 

4160 

FORMAT  (/IX,  8(3HIF(I1,2H)»I2,2X)) 

2617 

C 

BRANCH  TO 

4170 

from 

4150,00 

2618 

4170 

IF (NTS, lE, 0)60  TO  4190 

2619 

WRITE (6, 4 180)  (IT8RV(m,K),K«1 ,NT3) 

2620 

4160 

FORMAT (  7H  I TSR V«  ,3014) 

2621 

NT8«0 

2622 

C  «E« 

BRANCH  TO 

4190 

FROM 

4170,00 

2623 

4190 

IF (MRE 3 ,LE , 0 )  CO  TO  4200 

2624 

IF(NRE3R(M) ,LT.0)NRESR(M)«0 

2625 

nRCSbNRES* 1 

2626 

IRES(M)«m 

2627 

I  TmpbNRFSR ( m )  ♦  1 

2626 

NRE3R(m)«ITMP 

2629 

IRE3m(m, ITMPJbM 

2630 

IFCMDNST.'LE.O)  GO  Tq  4240 

2631 

ITMPBNUP3T (MQN3T)*1 

2632 

NUPST(M0N3T)bITmP 

2633 

IUP3T<mdN3T,ITMP)»m 

2634 

C 

BRANCH  TO 

4200 

FROM 

4190,00 

2635 

4200 

IF (MDNST , IE , 0 ) GO  TO  4240 

2636 

IF(MRE3,6T.O.OR.JUPf3I,UE.O)  GO  TO  4210 

2637 

ITPbNUPQI(mdn3T)+i 

2638 

NUPQI ( MDN3T ) b 1  TP 

2639 

IUPQI(mDN3T,ITP)»m 

2640 

IF ( I TP.GT ,RUPQI )  CO  TO  4900 

2641 

C 

BRANCH  TO 

4210 

FROM 

<■  ? '  r  ' 

2642 

4210 

ITPbNRFSR(m) 

2643 

IF  (NRESR(mdn3T)  ,UT.0)n9E3R(m|3N3T)bO 

2644 

ITMPbNPE3R(MDN3T) 

2645 

DO  4220  K b 1 , I TP 

2646 

IF(IRE3M(H,K),LE.0)6O  TO  4220 

2647 

IThPbITMP*1 

2648 

IRE3M(mon3T, ITmP)bIRE3M(m,k) 

2649 

C 

BRANCH  TO 

4220 

FROM 

4210,03 

2650 

4220 

CONTINUE 

2651 

NRE3R(mDNST)bITmP 

2652 

IF(MRE3,CT,0)00  TO  «2a0 

2653 

IF ( MON3T ,LE , 0 )  GO  Tn  4240 

2654 

ITPbNUPST(m) 

2655 

ITMPBNUPST(MnN3T) 

2656 

DO  4230  k«1,TTP 

2657 

IF(IUPST(M,k),LE:,0)GO  to  4230 

2658 

ITMPBlTMP+1 

2659 

IUP3T( MpNST,  iTmP)«iijPST(m,k) 

2660 

C 

BRANCH  Tn 

4230 

FROM 

4220.06 

4220,07  2661 

4230 

CONTINUF 

2662 

Exhibit  a 


•  2a* 


NUPST(mDN5T)»ITmP  2663 

C  BRANCH  TO  0200  FROM  0190.07  0200,00  2660 

C  0220,02  0220 ,03  2665 

0200  IF(HD!V,L£,0)  g0  Tn  «320  2666 

*TI0CHNDIV)«1  .  2667 

IDV (No J V)“M  266* 

1 0 1  V (M ) *NDI V  2666 

ITP«NnlVR(H)*l  2670 

N0IVR(M)«ITP  267! 

IOTVR(M,ITP)bM  267? 

C  *Fs  2673 

!F (OOXW(2,NDIV).CE.».OOOn  GO  TO  0260  2670 

IDT  V ( m ) »«ND ! V  2675 

I0BA3(NOIV)*QDIV(t,NDIV)  2676 

RTI0D(N0!V)«QD!V(2,NDIV)  2677 

WRITE (6*  0250)  RTIOD(NDIV) , IDBAS(NDIV)  267* 

0250  FGRMATdlH  D!V£RSI0N»F6,3#t6H  TIMES  DIVERSION  AT  13)  2679 

GO  TO  0320  2660 

C  BRANCH  TO  0260  F POM  0200.07  2681 

0260  IFCQOv.’lT.  (•.!)  )  WRJTE  (6,0270)  ( QD  I V  ( I ,  NDI V  ) ,  la  1 ,  NPER )  2662 

0270  FORMAT  C 1 1 H  OIVEHSION«tOFfl,l )  2683 

DO  0280  1*1, NPER  2680 

QOIV(I,NDIV)»QDIV(I,NOIV)*CSTGm  2685 

C  BRANCH  TP  0280  FROM  0270.’01  2686 

0260  QDIV3(I,NDIV)«Q0IV(I,NDIV)  2687 

IF(IOJVF(M),I.E.O)  50  TO  0320  2688 

WRI TE (4 » 0290 )  IOIVF(M) ,NOiVF (M), IDCPT(M) , J03HT(M)  2689 

0290  FORMAT ( 27H  DIVERSION  FUNCTION*  IDIVF*  , 12# 3X6HND I VF* , 13 , 3X6HlDCPTs  2690 
.  # 13* 3X6HID3HT*, 12)  269! 

ITMPpnDIvF(m)  2692 

WRITE (6*0300)  (0FUNC(I,M),I*1»ITWP)  2693 

0300  FoRMATdlH  DIVERSION  15F8.0)  2690 

WRITE (6*0310)  (0PARA(I,M),I»1,!TMP)  2695 

0310  FORMAT  C 1 1 H  PARAMETER  15F8.0)  2696 

C  BRANCH  TO  0320  F Rpm  o2o0.’00  0250.01  2697 

C  0260.01  2698 

0320  IF(NDlVR(M).LE.O.aR.MRES.GT.O)  GO  TO  0300  2699 

IFCmOnST.LE.O)  GO  TO  0300  2700 

ITMP»NDIVR(MDNST)  2701 

ITEMP.NDIVR(M)  2702 

DO  0330  K«1,ITEMP  2703 

ITMPBITMPM  2700 

C  BRANCH  TO  0330  FRnw  0320.00  2705 

0330  IDIVR(MDN3T, ITmp)«idIVR(m,K)  2706 

NDIVR(mdN3T)*ITmp  2707 

C  BRANCH  TO  0300  FROM  0320.00  0320.01  2708 

0300  IF  (MPidR.LE.O)  GO  TO  0350  2709 

IPwR(h)«NPwR  2710 

I  PR ( NpwR ) »M  2711 

C  *G«  ESTABLISH  BASIC  MONTHLY  FLOW  REQUIREMENTS  2712 

C  BRANCH  TO  0350  from  0300.00  2713 

0350  IF  (Omn.GT, (•,!))  00  TO  0370  271« 

WRITE  (6,0  J60HQmin(J,m)#  i*l,  NPfR)  2715 

0360  F0Rmat(5H  QMIN6X, 1OF8.0)  2716 

C  BRANCH  TO  0370  FROM  O350.00  2717 

0370  IF  (Qm2(M),ST, (•,!))  GO  TO  0390  271* 

WRITE (6, 4380) (0MlN2(I,M),I«l,NPER)  2719 

0360  F0RMAT(6H  QMIN25X, 1OF6.0)  2720 

C  BRANCH  TO  0390  FROM  0370.00  2721 

0390  IF(QMXX.GT,(-,1))G0  TU  OO10  272? 

WRITE (6,0000) (QmX(I,m),I«i ,NP£R)  2723 

OO00  FORMAT(OH  QMX7X, 1OF8.0)  2720 

C  *0*  CONVERT  TO  C*S  AND  OBTAIN  ANNUAL  REQUIRED  FLO*  2725 

C  BRANCH  TP  0010  FROM  0390,00  2726 

0010  00  0020  1*1, NPER  2727 

TmPbCsTO(I)  272 8 

QmX(I,hj«Qmx(I,M)*TmP  2729 

QMIN(i.m)  «Qmin(I,m)*TMP  2730 

0MIN2(I,M)«  Qmjn2( I ,M)*TMP  273! 

IF(IFLnw,EQ,M)TMPR(I)«QMlN(I,M)  273? 

C  branch  TP  0020  FROM  ooio.'oo  2733 

0020  CONTINUE  2730 


•  25« 


EXHIBIT  0 


1F(M9£S,LE,0)GO  TO  «660  2735 

C  *H«  RFSERVOIR  DATA  273 6 

ELPV(NP£R, M)aO,  2737 

If  (ATMP.LT, (■, 1 )  )  gD  TO  uulO  2738 

3T0RA(m)  a  ATMP  2733 

3TORB(NPER,M)eATMP  27uO 

C  8 RANCH  TO  44J0  FROM  44?0,03  27a) 

4430  3TORl(M)  ■  STOPA(M)  27a2 

“RITE (6,3000)  2743 

“RITE (6,4440) 9T0Rl (M) ,C£VaP(m) ,OLKG(M) ,ISRCH(M)  274  4 

4440  F0RMAT(/16h  RESERVOIR  DATAF//16H  INITIAL  STOR  bF9,0,9h  CEVAP  b  2745 
,  F6.3,8h  QLkG  «F8,0#RH  ISRCm  «IU//  27(16 

,  46X,28H  ***9TQRAGES***)  27(1 7 

WRITE (6,4450 ) (APERftd), AP«0( I), Isl ,NPER)  274  8 

«050  F0RmaT(11X,28A4)  27u9 

00  a460  L*1,NL  2756 

K  a  NL«L*1  2751 

C  BRANCH  TO  4460  FROM  (1450,01  2752 

4460  WRITE(8,4470)  K , ( 3Tr)RL ( I  * M , K ) , 1  a  1 , NPE R 1  2753 

4470  FORMAT  ( 6H  LEVEL  1 4 , 1 x , t 4E 8 , 0 )  2754 

MRTTE(6i4«80H3TOR(M,K)#K«i,NTAB)  2755 

4480  F0RM4T(/5H  8T0R  5x , 1 2F9 , 0 )  2756 

WRITE (6, 4490) (AREA(m,K) ,Kal ,NTAB)  2757 

4490  Format  (5h  area  5X,l2F9,l)  2758 

WRITE (6, 4500) (QCAP(m,K),K*1 ,NTaB)  2759 

4500  FORMAT  (5H  OCAP  5X,ij>F9,0)  2760 

wRITF(6,4510) (EL(m,«)  ,Kbi ,NTaB)  2761 

4510  FOrMAT(5H  ELFV  5X,12F9.2)  2762 

IE  (mpwR.lE.O)  GO  Tn  4660  2763 

C  rla  POWER  DATA  2764 

I PaNPwR  2765 

wRI TE  C  6 , 4520 )  2766 

4520  FORMAT ( / 1 2h  POWER  Data*)  2767 

WRITE (6, 4530)  OVLOD ( IP) , PwRMX ( IP ) , TL wfcL ( IP ) , I  DPR ( IP) , IPOW ( IP) ,  2768 

,  EFFCT(IP),MPSVS,PFMAX(IP)  2769 

4530  FORMAT ( /48h  OVLOD  PwRMX  TL“|  L  IDPR  IPO*  EFFCY  2770 

,  16H  MPSYS  PFMAX  /  2771 

.  F8.?,F8.0,E8.1,2I8,F8.1,I8,F8,3)  2772 

WRITE (6,3000)  2773 

IF (TLWEL ( IP)  )  4570,4940,4570  2774 

4540  WRITE (6,4550) (QT ( I P ,  K ) ,Kal ,  10)  2775 

4550  FORMATUOH  FLOW  10F9.0)  2776 

WRITE (6,4560) (TL(IP.K) ,Kal  ,  10)  2777 

4560  FORMAT ( 1  OH  TAILwaTFr  10F9.0)  2778 

C  BRANCH  TO  4570  FROM  4530.04  2779 

4570  IF(IPOW(IP),LT,l)  GO  TO  4600  2780 

WRITF  (6,4580)(PKPwr(IP,K),Kb1,10)  2781 

4580  FORMAT  ( 1 OM  MAX  POwpR  10F9.0)  2782 

WRITE (6,4590) (CQOEL(IP,W) ,Kal  ,  10)  2783 

4590  FORMAT ( 1 OM  V3  0  OR  9  10F9.0)  2784 

C  BRANCH  TO  4600  FROM  4570,00  2785 

4600  IF(EFFCTdP)  ,GT,  (.,  1  )  )  GO  TO  4620  2786 

WRITE  (6,4610)  (EFCY(IP*K),Kal,10)  2787 

4610  FORMAT  (5H  EFCY  5X.10F9.3)  2788 

C  BRANCH  TO  4620  FROM  4600,00  2789 

4620  IF  (IPWVR.GT, 0)GO  To  4650  2790 

WRITE (6, 4630) (POWR(i,lP),ial,NPER)  2791 

00  4640  I  a  1 , NPF  R  2792 

IF(P0WB(I,IP),GT,C*,’0001))GO  TO  4640  2793 

c  BRANCH  TO  4630  FROM  4620,01  2794 

4630  F0RMAT(5H  POWR  6 X , 1 uF8 , 2 )  2795 

AN0Y3*N0AY9(I)  2796 

*OWR(I,IP)bPOwR(I,Ip)*PwRMX(IP)w(-,024)*ANDY9  2797 

C  BRANCH  TO  4640  FROH  4620,02  4620,03  2798 

4640  CONTINUE  2799 

C  BRANCH  TO  4650  FROM  4620,00  2800 

4650  IF ( MP9 Y3 , Lf  ,  0  )  GO  Tq  4660  2801 

NRf 3P(“P9Y9)aNRE3P(MP3Y9)*l  2802 

ITPaNRE9P(MP3Y9)  2803 

IRE9P(mP3yS, ITP)bm  2804 

l9Y3R(M)a“PSV8  2805 

C  BRANCH  to  4660  From  4420,01  4510,01  2806 


EXHIBIT  • 


•  26" 


r»  o  o  o 


c  «65o,oo 

4660  IF(mdnST.GE  ,0)  GO  TO  3610 
00  4690  *X«1,NCPT 
^■ICPTMX) 

NT3«ntSRV(M) 

IF(NT3.'ie,0)GO  TO  4690 
00  4680  K«1,NT9 
ITEMP«IT3RV<M,K) 

ITP«NRE3R(ITEMP) 

00  4670  IT»1,ITP 

IF  (IRf9MnTEMP,IT),EG,M)IRESM(l  TEMP,  IT  )«-m 
C  BRANCH  TO  4670  PROM  4660.08 

4670  CONTINUE 

C  BRANCH  TO  4680  FROM  4660.05 

4680  CONTINUE 

C  BRANCH  TO  4690  FROM  4660.01 

4690  CONTINUE 

00  4710  MX«1,NCPT 
M«ICPT(MX) 

IF(NReSRCM) ,LE.O)  GO  TO  4710 
ITEMP  ■  NRESR(M) 

00  4700  K»l, ITEMP 
ITMPbIABS(IRESM(m(k)) 

NSERV(!TmP)«N3ERV<ITmP)M 

ITP»N$ERV(ITMP) 

IF  ( ITP.OT.KSERV)  GO  TO  4900 
I3ERV(ITMP,ITP)«I3IGN(M#IHESM(m,k)  ) 

C  BRANCH  TO  4700  FROM  4690.04 

4700  CONTINUE 

C  BRANCH  TO  4710  FROM  4690.01 

4710  CONTINUE 

REMIND  2 

C  ■  Js 

IE  ‘  <  RbO 
IPwyRbO 
NGYRpO 
KOTbO 
NFLOWbO 
NOVYR.O 
NtYR«0 
IT«0 

BRANCH  TO  4720  FROM  4740,05 
4760,02  4770,02  4780.01 

4810,02  4820,01  4830.01 

4850,01  4860,01 

4720  RE  AD ( 9, 4730 )  ICD.lCRO 

C  BRANCH  TO  4730  FROM  4740.02 

4730  F0RMATtA2,A4,A2,l8A4) 

I0T«1CRD(2) 

IF(KOT.EQ,0)KDTbIOT 
DO  4740  I«t ,  13 

IF(ICD.EG,80DE(I))GO  TO  4760 

C  BRANCH  TO  4740  FROM  4730.03 

4740  CONTINUE 

IFdT.LE.01GO  TO  4750 
wRITE(2,47305ICD,ICR0 
IT«IT*t 

IFdT.GE.SlGO  TO  4870 
GO  TO  4720 

C  BRANCH  TO  4750  FROM  4740.01 

4750  PRINT  3650,  ICO.ICPD 
GO  TO  4720 

C  BRANCH  TO  4760  FROM  4730.04 

4760  IFd.eO.lSlGn  TO  4870 
WRITE(2,47303ICD, ICRH 

C  IN  YF  EV  YD  UP  YS  YQ  Ul  PN  BP 

GO  TO  (4770,4790.4800,4820,4830,4720,4840,4850,4720,4720, 
C  8  V  T I  ER 

.  4720, 4860, 4870),  I 

4770  IF(IOT,EG,KDT)GO  TO  4780 

KQTtaRR 

GC  TP  «720 


2807 

2808 

2809 

2810 
2811 
2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 
2821 

4660,04  2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

4750.01  2848 
4790,01  2849 
4840.01  2850 

2851 

2852 

4760,01  2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 
2861 
2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 

2876 

2877 

2878 
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Exhibit  4 


n  no 


C  8RANCH  TO  «760  FROM  «770,00  2*79 

9780  nFl0w«NFl0w*1  2860 

00  TO  9720  2881 

C  BRANCH  TO  9790  FROM  9760.02  2882 

9790  It  V yR«  1  2883 

00  TO  9720  2889 

C  SRAnCh  TO  9800  PROM  9760.02  2885 

9800  IEVVRR-1  2886 

DEC0DEC9,9810,!CSD(n)M  2887 

«810  FORMAT  (U)  2888 

!EV(M)«1  2889 

GO  TO  9720  2890 

C  BRANCH  TO  9820  FROM  9760,02  2891 

9820  IF(IOT.EO,KOT)NDVYR,NOVYR+1  2892 

GO  TO  9720  2893 

C  BRANCH  TO  9830  FROM  9760,02  2899 

9830  IP«YR*1  2895 

GO  TO  9720  2896 

C  BRANCH  TO  9890  FROM  9760,02  2897 

9890  IF(10T.EQ.*0T)NQYR»NOYRYl  2898 

GO  TO  9720  2899 

C  BRANCH  Tn  9850  FROM  9760.02  2900 

9850  IF(ICR0(2),nF,IBUk)nLYR»NUYR*1  2901 

GO  TO  9720  2902 

C  BRANCH  TO  9860  FROM  9760,02  2903 

9860  I T « I T  ♦  1  2909 

IFCIT.UT, DGO  TC  9720  2905 

C  BRANCH  TO  9870  FROM  9790,09  9760,00  2906 

C  9760,02  2907 

9870  IF(nPER.LE,12)G0  TO  9880  2908 

NFLOM»NFlOw/2  290g 

N0VYR«NDVYR/2  2910 

nGyR«NQyR/2  2911 

C  BRANCH  TO  9880  FROM  9870,00  2912 

9880  ENDFILF  2  2913 

REWIND  2  2919 

C  ZEROIZE  NSTOR  ARRAY  2915 

ITEMP«KCPToKPER*10  2916 

DO  9890  Kal.ITEMP  2917 

NTSRV(K)a0  2918 

C  BRANCH  TO  9890  FROM  9880,03  2919 

9890  CONTINUE  2920 

RETURN  2921 

BRANCH  TO  «900  FROM  3610,05  3790,03  2 922 

3810,01  3860,00  9090,02  9090,05  2923 

U200.05  9690,08  2929 

9900  WRITEC6, 99101  2925 

99 1  0  FQRM*T(19H  DIMENSION  EXCEEDED)  2926 

C  BRANCH  TO  9920  FROM  3030,01  2927 

9920  STOP  2<)28 

END  2929 


EXHIBIT  9 


SUBROUTINE  COMP  (J)  2930 

OImEnjtqn  2931 

,  EVTMPf30),inPFR(40),IPX{20),PGAiJ(20),PG(30,B,2),Pr.T(8T,  29  3? 

,  QOmn* (30 ) , QOmnb(30) , QOTmn( 30) ,QOTmX (40) , T*FI  (20)  29 53 

COmmOn/qT  a  0M  '  29  3u 

4  KCPT,KPWR,KPmRS,KRE8,KUP3T,KDIV,KL  ,KPFR.K<3IL,*SFRV,t<UPQI  2935 

COMMON  /*L?ha/  2936 

,  APERDf  12), APRD(12),IDIV{40) , IPnR(UO)  ,  !  V  R 1  ,  NPwR ,  NRF  3  ,  Qm2  f  0  0 )  ,  29  37 

,  TITLE  (60)  * IPHK*  2938 

Common  /BETA/  29J9 

,  NVRS,  TRG(10),CPT(40,8),ICPT(40),IRFS(40),NCPT,NPER,OUNIT,VUMT  294(1 
COMMON/OLTAJ/  2941 

,  CNTRLI12, 40>,QL(12,40),3YQI(40), 01(12, 90), STORBf 12,30),  294? 

.  ELEvn2,30),SVEvP(30),E vP(12,JO),SYPwR(22),POMER(12,22),  2943 

.  SVSMp(22),3HRTP( 12,22 )#STPMX( 22), POHRPC 12.20 ),SYQA(iJ0) ,CA{ 12, UO)  29  4  4 

C0MM0N/0LTA2/  2945 

,  ANDYS, aREA(JO, 10), CfVAPfJO ) , CELOD, CLOCL, CONST, COOEL (20, 1 0) ,  2946 

,  EFCY(J0,10),EfFCYC20),EFY(20),EL(30,10),EVAPO(12),HFAn(?O),IcnNS,  2947 

«  IC3E  ( 12,40) , I  OB AS (25) , IOGST , ID  PR (20) , IDV (25) , IDVPB, IDVSP, IEVYR,  294  4 

.  IPER(12),IP£RA,IPOw(20) , I  PR (20 ) , IPRN ( 4 0 ) , I PwPR , IRE3P ( 2 , 20  ) ,  294  9 

,  ISHDv(25),I3Hq(JO),ISHr(30)»I3PER,I8RCH(UO),ISYSR(40),  2950 

.  IUPST(«0,18),MfcTRC,NCYCL,NOAYS(12),NOlV,NDlVR(aO),NnvflH(25),  2951 

,  NELB(R0),NL,NLF,NPHRS,NRESM,NRESP(2),NSM2r40),NSHP)V,NSHMN(40),  2952 

,  N9MP(40),NSHP3(U0),NSMQ,NSHR,N3PER,N3RTP(2),NUPSTra0),OVLnDC2O)  2953 

COMMON/DLTA3/  2954 

,  PEmax(20) ,PKPwR( 2 0,10) ,P0mR( 12,20) ,P mF R{ 12,22 ),PHRMX( 20) ,  2955 

,  PwR3(J2,2),  QCAP(30,10),QCONSC1?,«0),OD1V(1?,?5),  2956 

,  QO:va(12,25),QDIVR(U0),QDIVSC12,25),QLK6(U0),QmAXA(40),  2957 

,  QM IN2(1 2,40 ),QMINA( 12, 40), QMIN3(1 2,40 ) ,QMX( 12, 40) ,00(30,8) ,  295B 

,  OOmN(JO),OOT (40,8),  QPREP(l2,40),GT(20,!0),PSwDV,9SHn,  2959 

,  RTIOd(25),ShDIV(12,25),SHDMX(25),3hmx(40),SHMX2(40),3mpmx(40),  2960 

,  3mrT2( 12,40) ,3HRTO( 12,40) ,SPSMX{40) ,STOR( 30, 10) .3TORA (30) ,  2961 

,  3TRAy( J0),STR3H,3YCNS(40),SYDV(2S),SYDvA(25),SYDYS,SYmsp(2),  2962 

,  8YPR(22),3YPRF(40),8YQ(40),3YOL(40),SYQMN(40),SY3m2(40),  2963 

.  3Y3MD(25),3Y3HQ(40),3YSP(22),SY33P(12,20),SY3Y3(2?),TL(20,10),  2964 

.  TU*EL(20),  2965 

,  I0IVF(40),NDIVE(40),IDCPT(40),IDSHT(40),DFUNC(20,40),OPARA(20,40)  2966 

COMMON  /BALT/  2967 

,  IECON, IE(«, 40 ), I  YEAR, NRfSR (40 ),NSTOR( 12,40,  10), 01 1(12,40),  2968 

,  3TORL(12,40,8),TMPP(40),TMPX(12)  2969 

Common  /Gamma/  2970 

,  I«E3m(40,30),IDIVR(40,25),  IEV(40)  2971 

C  «A«  START  COMPUTATION  for  EACH  PERIOD  •  •****••****  2972 

nfl«Nl-NLF*1  2973 

CKW«, Q8464  2974 

IF(MEtRC,GT,0)  C«W«9,817  2975 

DO  6470  1*1 , NPER  2976 

NC«0  2977 

ANOY3  ■  ndaY3(I)  2978 

CT  ■  ANDYS/3YDYS  2979 

CG3  ■  CON3T*ANOY3  2980 

C30  ■  1 • /COS  2981 

CN3T  ■  , 024* AND Y3  2982 

IF  (NPNR.Lf.O)  GO  TO  5010  2983 

DO  5000  IP«1,NPMR  2984 

IPX(IP)«0  2985 

C  BRANCH  TO  5000  FROM  .54  2986 

5000  P*ER(I,IP)«POMP(I,IP)  298T 

C  BRANCH  to  5010  FROM  ,’53  2988 

5010  EVP0«  E V APO ( I ) / 1 2 •  2989 

C  »B»  SHORTAGE  DECLARATION  2990 


IP  (N3HR,LE,0,OR,I3PER,NE,IPER(n)  GO  TO  5080  2991 

TEMP«o.'  2992 

DO  3020  mx«1,N3MR  2993 

M«I3HR(MX)  2994 

c  BRANCH  to  5020  FROM  50!0.'04  2995 

5020  TEmp«tEmP*3TORA(m)  2996 

Tmp«3TR3h-TEMP  2997 

DO  5070  K«1,N3PEP  2998 


IX«I3PER*IPERA  ♦  8  2999 
IF  (Ix.'LE.O)  lX«lX*NPfcR  3000 
IF(IX.GT,NPER)IX«IX-NPER  3001 


•  29. 


EXHIBIT  4 


IF  ( M3H0V.LF , 0 )  80  TO  5060 

3802 

00  5050  KXal.NSHnv 

3005 

IDelSHOV(KX) 

1806 

iD«ioivcm 

3005 

IF  CIO.LT.O)  I0«<.I0) 

3806 

qoivscix.ioi  «  ooiv(rx,zo) 

3007 

IF  (QDIV(IX,!D).LE.O..OR.TMP,tF.Ot)  GO  TO  5050 

300B 

QD!VS(IX,ID)«QDIV(Ix,ID)*C1,«TmP*RSH0V) 

5809 

IF  (OOIVS(IX,ID),I.T.ft.)  QDIVSCIX, 101*0, 

1810 

c 

BRANCH  TO  5050  FROM 

5020,07 

5028,12 

3011 

5050 

CONTINUE 

3012 

C 

8RANCH  TO  5060  FROM 

5020,06 

3013 

5060 

IF  (NSHG.LE.O)  GO  TO  5070 

3016 

00  S050  «X«1 , NSHQ 

3015 

h«18mQ(KX) 

3016 

QHINsCIX,H5»GhIna(Ix,H) 

3017 

IF  (TmP.GT.O.)  QhIns(IX#m)  a  QmInA(IX»m)*(1,»Tmp*RShq) 

3018 

c 

BRANCH  TO  5050  FROM 

5060.01 

3019 

5050 

CONTINUE 

3020 

00  9060  KX«1,NSH(5 

3021 

Hal JHQ ( K  X  ) 

3022 

IF  (0min9(IX,m) ,LT.qmin2( IX,m) iqhinSI IX,mJbQmIn2 (IX,m) 

3023 

C 

BRANCH  TO  5060  FROM 

5050,01 

3026 

5060 

CONTINUE 

3025 

C 

BRANCH  TO  5070  FROH 

5020,02 

5868,00 

3026 

5070 

continue 

3027 

C  «C« 

*  *  *  *  * 

*  *  *  * 

3028 

C 

BkAnCh  iq  5080  F RQH 

5010.02 

6280,80 

1029 

5080 

NCaNCtl 

3030 

00  5160  HXal , nCPT 

3031 

HalCPT(HX) 

3032 

IF(NC.LF.l)  0MAXA(H)a999996. 

30J3 

IF(NC,LE.nQOTMN(H)aO. 

3033,1 

IF  (IRF8(M),Lt,0)  GO  TO  5160 

3036 

C 

RESERVOIR  EVAPORATION  ano  OUTLET  CAPACITY 

3035 

IF  (NC.LE.l)  3TRAV(H)a8TORA(M) 

3036 

00  5100  ITHPa2,iO 

3037 

K  a  ITHP 

1038 

IFfSTRAV(M),LE.STOR(M,K))  GO  TO  5150 

3039 

C 

3060 

IF(3T0R(M,K).GT.ST0RfM,K-n)  GO  TO  5100 

3061 

C 

BRANCH  TO  509A  FROM 

5080,99 

306? 

50*0 

K  a  K  •  1 

3A63 

GO  TO  5110 

3066 

C 

BRANCH  TO  5100  FROH 

5080,06 

5880,10 

3065 

5100 

CONTINUE 

3060 

C 

BRANCH  TO  5110  FROM 

5090,01 

3067 

5110 

wRITE(6,5120)  h 

3068 

5120 

FORHa*  C 55H  STORAGE  TABLE  EXTRAPOLATED  FOR  RE 3  I«) 

3069 

C 

BRANCH  TO  5130  FROM 

5080,08 

3050 

5150 

TEHP  a  0. 

3051 

IF  (3T0R(H,K),GT,3T0R(H,K«1)) 

3052 

.TEMP  a  (3TRaV(M).STqR(M,k*1 n/{8T0R(M,K)«ST0R(Mr 

K  •  1  )  ) 

3055 

AREAV  a  TEMP*(AREA(M,K)-AREA(M,K.m*AREACM,K«i) 

1056 

TMPaEVPO 

3055 

IF ( IE V (M )  ,GE , 1 )  TmpbeVP(I,M)/12, 

3056 

IFIMETRC.GT.O)  THPbtmP*,012 

5057 

EVTHP(M)  a  TmP*aREAV*CE VAPf M) 

3058 

TMPaTEMP*(QCAP(M,KJ«OCAP(H,K-n  >*QCAP(H,K-1 ) 

3059 

IFtNC.LT. 5)QMAXA<M),TMP 

3860 

IF  CnC.GE ,3)QMAXA(M)a(QMAXA(N}ATMP)«,5 

3061 

ELEV(I,H)aTEMP«(pL(M,K)»EL(H,K-l))TEL(M.K-n 

3062 

IFCJ.Efl. 1 ,AND.I,E0.1)ELEV(NPER»M)aELEV(I,H) 

3063 

IF(IPwR(H),LE.O)GO  to  5160 

3066 

IPalPaR(M) 

3065 

!FCfFFCYClP).GT,C..mGO  TO  5160 

3066 

EFYClP)«TEHPa(FFCYCiP,K)-EFCY(iP,x-in*EFCY(iP,K 

•1  ) 

3067 

C 

BRANCH  TO  5160  FROM 

5080,01 

5080,06 

3068 

c 

5130,11  5150.13 

3069 

5160 

CONTINUE 

3070 

00  5960  mx  a  1,  NCPT 

3071 

MRICPT(MX) 

3072 

EXHIBIT  « 


JO- 


NRESM»NRFSR(M) 

C  «D»  OCSIRfO  PLOW  AT  CONTROL  POINT 
Oa(1,n)  ■  0NIN3(I,n) 

icstd.Nj  ■  i*ioo*n 

C  TOTAL  DIVERSION  P»OH  local  area 

THPP(m)  •  QA(I,M) 

Q0IVR(N)«0, 

IP  (NOIVR(M).LE.O)  CO  TO  5230 
ID«IOlv(M) 

IP  ( ID)  5150,5210,5160 
5150  ID«(«ID) 

I TMP*IDB*S { ID) 

ITMP«IOIV(ITMP) 

QOIVSd,  ID)«CDIVA(I,  ITMP)*RTI0D(  ID) 

ODIVfi , IO)*QOIVt?» ITMP)*PTIOOC IDJ 
QDIVAd,  ID)«0DIVS(I,  ID) 

SO  TO  5210 

C  BRANCH  TO  5160  PROM  S 1 ao . 1 0 

5160  TEMP»flOlV(I, ID) 

IP(NC.LE,l.OR,IDIVP(H).LF,0)  00  TO  5200 

ITP«IOCPT{H) 

IP  ( I D I  VP  t  P ) *2 )  5170,51*0,5190 

5170  Call  intpol(h,ndivp(H),oprep(i,itp),dpara,dpunc,tehp) 

Co  TO  5200 

C  BRANCH  TO  5180  FROM  5160.03 

5180  CALL  INTPOL(M,NDI VP («) ,QI (I , ITP) ,DPaRA,DPUNC , TFhP) 

GO  fn  5?n 0 

C  BRANCH  TO  5190  PROH  5160.03 

5i9o  call  intpul(h,ndivf(m),stravotp),dpara,dfunc,tehp) 
c  BRANCH  TO  5200  FRO*  5160.01  5)70,01 

C  5180,01 

5200  IP(TEMP.GT,CDIV(I, !D)JTEHP»QDIV(!,ID) 

QOIVSfT ID)*TEMP 
OOIVACI, ID)«TEHP 

c  BRANCH  to  5210  PROM  5100.10  5150,06 

5210  ITMP  a  NDIVR(H) 

DO  5220  K ■ 1 ,  ITMP 
ITEMP.TDIVR(M,K) 

ID*IOl V ( I  TEMP) 

IP  (lO.'LT.O)  I  D«  ( - 1 D  3 

0DIVR(H)«0DIVR(M) ♦QDIVAd,  ID) 

C  BRANCH  TO  5220  PRpm  5210.01 

5220  CONTINUE 

C  «E ■  LIHIT  PLOH  TO  RIVER  BY  CHANNEL  CAPACITY 

C  BRANCH  TO  5230  PROM  5100.0* 

5230  TEmP«qmaxa(h) 

IP(QMXd,H),LT,TEHP)TEHP«QMXd,H) 

Q0THX(M)«TEHP,QL(I,M).(CFL00.CL0CL) 

IF  (OOTMX(M),LT,0,)  QUTMXtM)»0. 

IP ( I  RES (M) ,CT,0)QOTHX(H)aTFMP 
IThPbnUPST(H) 

IP (I TmP ,LE , 0 )  GO  TO  5280 
AL«1. 

TEHP«o. 

DO  5250  L«1,NL 
TMPaTf mp 

TEHP«OL(I,H)*CLOCL-Q0IVR(M) 

IP(IRE9(M>.GT,0)TEMP«QLCI,M)-ODlVR(M)+(STORA(H).STORL(IiM,NLl- 
,  EVT«P(m))«c9Q 

DO  5200  K»1,ITHP 
I R« I  UPS  T ( H , K ) 

IPdR.EQ.OJGO  TO  5200 
TmPA«qOT(IR,L) 

IP(TMp*tGT,QOTMX(IR) )ThPa«OOTMX(IR) 

lP(L,’LF.NPL,ANCtTHPA,LT,Q0THNdP))TMPA«Q0TMN(I») 

IP(ICON3tGT,O.ANO.TMPAtLT,GOTHN(lR))TMPAsQOTMNCIR) 

IP(THPA,LT,0LKG(IR))TMPA«QLKG(IR) 

CCT(IR,L)»THPA 
Tf mP»TEhP*tmPA 

C  BRANCH  TO  52  -t  0  FROM  5230.10  5230.16 

520 0  CONTINUE 

IPfL,pQ,1.0»,TfHP,GTtQnTMX(M))  c-n  u.  525 0 


3073 

3070 

3075 

3076 

3077 

3078 

3079 

3080 

3081 

3082 
3063 
3080 

3085 

3086 
3067 

3088 

3089 

3090 

3091 

3092 

3093 
3090 

3095 

3096 
309? 

3098 

3099 

3100 

3101 

3102 

3103 
3100 

3105 

3106 

3107 
3106 

3109 

3110 

3111 

3112 

3113 
3110 

3115 

3116 

3117 
3  i  i  5 

3119 

3120 

3121 

3122 

3123 
3l2o 

3125 

3126 

3127 
3126 

3129 

3130 

3131 

3132 

3133 
3130 

3135 

3136 

3137 
313* 
3139 

3100 

3101 

3102 
3  103 
3100 


EXMJRIT  o 


IP(TEHR.GE.TPP)  ALa  (al  • ) 

lP(TCMP,tT,TMP)ALa(QOTMX(M)-TMP)/(TEMP«TMP) 
GO  TO  5260 


5250 


CONTINUE 

laNL 


BRANCH  TO  5250  PROM  5250,09 
BRANCH  TO  5260  PROM  5240,04 


5280  PRO*» 


5260.01 

5250,06 


5260  IPCAL.LT.O,)  GO  TO  5280 
00  5270  K«1,NRE8« 

IRtIRESH(M,K) 

IP(IR.LT,0)!Ra(«IR) 

IP(IR,E0,H)  GO  TO  5270 

QOTMX(IR)bQOT(IR,l-1)*(1,-AL)yQOT(IR,L)*AL 
c  BRANCH  to  5270  PROM 

5270  CONTINUE 

C  BRANCH  TO 

5280  IP (IRES(M) ,LP  ,0)  GO  TO  5910 
!0aI0IVCM) 

TMPaO , 

!P(IO.GT,0)TMPaQOIV*(l,lO) 

OOTMN(M)»OLKG(H)aTMp 

C  *Pa  POkPR  RELFaBE 

TMPpRaO , 

IP  (IPNR(M).IE.O)  GO  TO  5390 
IP  a  XPnR(M) 

TWELdP)aTLHEL(IP) 
iTEMPaO 

IP  (TlwEL(lP))  5350,5300,5350 

C 

5290  ITPHPal 
C 

5300  00  5310  Ka2,io 

IP(THPP(H),UE,OT(IP,K))  GO  TO  5330 

ip(ot(ip,kj,le,o)  go  to  5320 

C 

5310  CONTINUE 
Kajo 

GO  TO  5330 
C 

5520  Kb*„1 

IPCK.EG.l)  GO  TO  5340 
C 

5330  IP  (QT(IP,K),LE.QT(IP,K«1))  GO  TO  5300 

TEMpa(THPP(M)«GT<IP,Ral))/COT<IP,K)»OT{IP#K-i) > 

Twftf IP)aTL(IP»K)*TEHp*TL(lP,K«l )*(l ,-TEHP) 

GO  TO  5350 

C  BRANCH  TO  5300  PROM 

5300  THEt(IP)aTL(IP,K) 

C  TaILwATER  AS  LEvEl  OP  DOWNSTREAM  RESERVOIR  ♦  2  PEET 

C  Branch  to 

5350  IP ( IDPR ( IP ) ,lT , 1 )  GO  TO  5370 
ITmpbIDPR(IP) 

TEMPaTlHELIIP) 

IPITFMP.LT,  (, 'll) TEHPaTWEU IP) 

I  Xal 

IF  (NC.GT.l)  GO  TO  5360 
IXal.l 

IF  (IX.IE.O)  IXeNPER 

C  BRANCH  TO 

5360  TwEL(IP)aELEV(Ix, ITmP)*2, 

IF  (MfTRC.GT ,0)TwEL(JP)bTwEL ( TP ) - 1 ,0 
’r( T«CLf !P).LT.TE“P)  TWEL(IP)«TEmp 
c  branch  Tn 

5370  HEAO(IP)  a  ELE V ( I , mj.thEl ( IP ) 

CPWR  a  EFY(IP)*CPw*CNST 

TMPP(M)BP(.ER(I»IP)/(CP»«R*HfAO(IP))*ULKG(M) 

IF  (EFFCV(IP) ,LT, (■! .5) )TMpp(M)apwER(I, Ip)/(EFy ( Ip)*CNST)+qLKG(m) 
TMPPRbTHPP(m) 

IF  (DA(X,H),GE,THPP(M))  GO  TO  5390 

UA(T,M)  a  TMPP(M) 

XFntEMP.EO.l)  GO  To  5380 
IP  (TLWFI  (IP)  15380,5290,5300 


BRANCH 

TO 

5290 

PROM 

5370,08 

BRANCH 

TO 

5300 

PROM 

5280,10 

TO  5310 

0 

BRANCH 

TO 

5310 

PROM 

5300,00 

BRANCH 

TO 

5320 

PROM 

5300,02 

BRANCH 

TO 

5330 

FROM 

5300.01 

5350  prom 


5320,01 

LT 

5200.10 


5360  PRQm  5350.05 


5370  FROM  5350,00 


3105 

3106 
1107 

5200,01  3108 
3109 

3150 

3151 
1152 
3153 
3150 
3155 
1156 
3157 

5260,00  3158 
3159 

5260,00  3160 
3161 


3162 

3163 
3160 

3165 

3166 

3167 
1168 
3 1  60 

3170 

3171 

3172 

3173 
3170 

3175 

3176 

3177 

3178 

3179 
1180 
SlBl 

3182 

3183 

3180 
3185 

5310,02  3186 
3*87 

3108 

3109 
3190 

5330,00  3191 
319? 
3193 

5330,01  3190 

3195 

3196 

3197 
3190 

3199 

3200 

3201 
1202 

3203 
320« 
3205 

3204 
32C7 
3200 

3209 

3210 

3211 

3212 
1  •  ** 

321*0 

3215 

3216 


EXHIBIT  o 
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c  RRANCH  TCI  5180  FROM  5370.07  3217 

5380  IC3E(i,'1)*2  ♦  100  *  “  3218 

C  aGa  RELEASE  TO  REACH  FaCh  LEVEL,  NEGLECTING  UPSTRFAM  RE  l  fc  ASF  1219 

C  BRANCH  TC  5390  FROM  5280.08  5170,85  1220 

5390  DO  5900  L«1,NL  1221 

5900  QO(M,U  •  QL(l,H)"G0!VR{M)*cSTORMH)»STnRLCI,H,L)-EVTHP(M)  i*rSO  1222 

QOHNCO  ■  00(h,nl)  3223 

OOHNA (R)aQO(H, 1 )  3229 

Q0HN8(H)bQ0MN(H)  3225 

C  BRANCH  TO  5910  FRO*  5280.'00  3228 

Zli  1C  QCONSC!,H)«QA(l,H)  3227 

!F (NRfSRCH) ,GT ,  0)GO  TO  5920  1228 

C  LIMIT  DIVERSION  TO  RUNOFF  IN  A RF A S  WITHOUT  RESERVOIRS  322° 

OA ( I , H)aQL ( I »H )»QO! VR(M)  3230 

IF  (0L(I,H),GE,QDIVR(M)}  00  TO  5990  3231 

IF  (lO.'LT.O)  IPbC-!D>  3232 

IFCID.LE.O)  GO  TO  5990  3233 

TMRbQO! V  A ( I , ID )  3239 

QOIVA(I,IO)aQL(I,M)»GDIVR(M)*THP  3235 

OOIVR{H)aQOIVR(M)^QOlVA(l , I0J-TMP  3236 

OA(I,H)aO,  3237 

GO  TO  5990  3238 

C  aHa  RESERVOIRS  NOT  OPERATING  SPECIF ICALLY, IPPFRa-1  3239 

C  -BRANCH  TO  5920  FROM  5910.01  3290 

5920  DO  5990  KBl,NRESH  3291 

IRAaIRESM(H,K)  3292 

IF  ClRA.LE.C-m  GO  TO  5930  3293 

IOPERCIRA)  ■  1  129« 

00  TO  5990  3295 

C  BRANCH  TO  5930  FROM  5920.02  3298 

5930  IRA  a  .IRA  3297 

IOPER(TRA)  a  «1  1298 

C  BRANCH  TO  5990  FROM  5920.’00  5920,09  3249 

5990  CONTINUE  3250 

C  TOTAL  RELEASE  FOR  EACH  LEVEL  ABOVE  EACH  CONTROL  POINT  3251 

LCNSBHPL  3252 

IFCICONS.GT.O)LCNSaNL-l  3251 

00  5580  K  A*  1 ,  NRE  SM  3259 

IRAalRpSMCM/KA)  1255 

IFCIRa.'lT.OMRAb.IRA  3258 

IDbIDIVCIRA)  3257 

NRbNUPSTCIRA)  3258 

DO  5570  LXal.NL  325R 

L«NL-L**1  3260 

OOTCIRA,L)«QOCIRA,L)  3261 

IF  C  NPwRS.LE . 0 )  GO  TO  5970  3262 

C  USE  PG  FOR  DOT  FOR  LATER  SYSTEM  POWER  ALLOCATION  3263 

00  5960  IXal,NPwR3  3269 

PGCIRA.L,IX)BQac:RA#L)  3265 

IFCIRA.EQ.M)  GO  TO  5950  3266 

PGCIRA,L#IX>»QOMNCIRA)  3267 

IF(ISySRCIRA) ,NE, IX, AND. IOPERCIRA)  ,LT,0)  GO  TO  5950  3268 

PGCIRa,L#IX>*OOCIRA,L)  3269 

!FCPGCIRA,L,IX),LT,QOmnCIRa) )PGCIRA,L, IX)bOOmnCIRA)  3270 

IFCL.NE. 1 )  GO  TO  5950  3271 

C  CHECK  AVAILABILITY  OF  BUFFER  STORAGE  3272 

TmPGbqqmNCIRA)  3273 

IFCTMP5,i.T.PGCIRA,2,IX))TMPQbPGCIRA,2,IX)  327  9 

IFCIPwPR.lt, 0)  RGC:RA,L,IX)  a  TMPS  3275 

C  BRANCH  TO  5950  FROM  5990.19  5990.16  3276 

C  5990,19  1277 

5950  IFCIPwRCIRA).LE,0,OR.NR,GT,0)  GO  TO  5960  3278 

IP  a  IPWRCIRA)  3279 

CPWR  a  EFY(IP)  *  CKW  3280 

C  LI*IT  POWER  TO  max  LOAD  FACTOR  3281 

TEMPapwRMXCIP)*PFMAXCIP)/CCPWR*HEADCIP)  )AGLK6CIRA)  3282 

IFCEPrCYCIP).LT,C-l,5))TEMPaP.RMXcrP)*PFMAXCIP)/EFYCIP)AGLKGCIRA)  3283 
IFCPG'IRA,L|IX),GT,TEMP)  PGCIRA.L.Txi  a  *EMP  32*'! 

C  branch  TO  5960  FROm  5990.12  5950,00  3285 

5960  CONTINUE  3286 

C  BRANCH  TO  5970  FROM  5490.'tl  3287 

5970  IFCIOPERCIRA),LT.0)GOTCIRA,L)8OOMNCIRA)  3288 
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EXHIBIT  4 


IF(Nfl,LT.l)  SO  TO  5S00  3289 

00  5 <190  K«1,NR  3290 

1R»I<JP8T(1R*,K)  3291 

IFCNPWRS.LE.OJ  GO  Tn  5490  3292 

00  5480  IX»1,NP*R3  3293 

PGdRA,L,IX)iPGdRA,L,IX)*PGdR,L,IX)  3294 

IP  (  IPwR  ( IR  A  )  ,  LE  ,  0  )  on  TO  5480  3298 

C  U ! v I T  POWER  TO  MAX  LOAD  FACTOR  3296 

IP  ■  IPwR(ira)  J?97 

CPwR  «  t P V ( I P i  *  CK w  3298 

T£mp«PwRMX(IP)*PPMAx(IP)/(CPWR*hEAO(IP))*QLKO(IRA)  3299 

IE  (EFFCY  (IP)  .LT.(-t.’5)lTEMP*PwRMXdPl*PPMAXdPl/EPYdPJ*rJLKGdRA1  330  0 

ie(ps(ira,l, ix),6T,tfhp)  pc(ira,l,ix)  ■  tfmp  3301 

c  BRANCH  TO  5480  FROM  5470,05  5470,07  3502 

5 <180  CONTINUE  3505 

C  BRANCH  TO  5<190  FROM  5<l70,02  5U70.no  330<l 

5U90  QOT(lRA,U>«OCmiRA,L)*QOT(lH,L)  3308 

C  »I*  FREEZE  SYSTEM  POWER  RELEASES  3306 

C  BRANCH  TO  8500  FROM  5U70.01  3307 

5500  I P« IPwR ( IRA )  3308 

IF(ISYSR(lRA),lE,O.OR.lRA.EO.M,OR,NC,ER.1.0R,L.EOtNL)CO  TO  5520  3309 

IF(IPX(IP).LE.O.ANO;l.LE.2)GO  TO  5520  3310 

ITMP«NRESR(IRA)  3311 

00  5510  K«1,ITM P  3312 

IR«IRESM(IRA»K)  3313 

!F(IR.LT.O)IR*<-IR)  33 1 u 

C  BRANCH  TO  5510  FROM  5500,04  3315 

5510  QOT ( IR# L j»8A d  <  I R)  3316 

CO  TO  5560  3317 

C  BRANCH  TO  5520  FROM  5500,01  5500,02  3318 

5520  IF(OOT(IRA,l.)ILT,Ql.K6(IRA),AND.IRA,NE,H)OOT(IRA,U«QLKG(IRA)  3319 

IFa.EO.NU  GO  TO  9530  3320 

IFtOOTf IRA, L) .LT.QOtmn(IRA) .AND.L.LE, NFU GOT (IRA, U«GOTMN{ ira)  3321 

IF(QnT(I»A,LJ.6T,QOTMX(IRA))GOT(IRA,L)«OOTMX(IRA)  3322 

IF(QnT(lRA,L5,LT.QOT(IRA»L*inSOT(IRA,L)"QOTtlRA,L*n  3323 

GO  TO  5560  3324 

C  CONSTRAIN  MINIMUM  RELEASE  3325 

C  BRANCH  TO  5530  FROM  5520.01  3326 

5530  TEHP.O.  3327 

IF(IO.GT.O)  TEMPpQOjVAU.IO)  3328 

TEMP.OLKG(IRA)»TEMP  3329 

IF(QOT(IRA,L).LT,TEMP)QUT(IRA,L)«TEMP  3330 

IFIISRCHf IRA).GT.O.ANO,aOT(IRA,L),GT,OMAXAaRA))GOT(IHA,L)«  3331 

,  QMAXA(IRA)  3332 

IFOCOnS.GT.O.AnO, QoT (IRA.L).LT. OOTmn (IRA))OOT(IRA#L)*OOTmn(IRA)  3333 
IF(IOVSP,GT,0)  GO  To  5540  3334 

IF(QOTMXdRA) ,LT,QOT(IRA,NL))UOTmx(IRA)«OOT(IRA,NL)  3335 

GO  TO  5560  3336 

C  SPILL  THRU  01  VERSION  3337 

C  BRANCH  TO  5540  FROM  5530,07  3338 

5540  IF(QnTdRA,L),LE,QOTMXdRA))  GO  TO  5560  3339 

ID«IOIVdRA)  3340 

IFdO.LE.OlGO  TO  5560  3341 

TCMP«onTdRA,L)-OOTMXdRA)  3342 

QD!VAd,ID)«GD!VACI,!D)*TEMP  3343 

QOIVRdRA)»ODIVRdRA)*TEHP  3344 

00  5550  L*«1*NL  3345 

5550  OOdRA,lA)«OOdRA,LAl-TEMP  3346 

QOT(IRA,L)«OOTMXdRA)  3347 

C  BRANCH  TO  5560  FROM  5510,01  5520,05  3348 

C  5530,09  5540,00  5540,02  3349 

5560  IFdRA.NE.M.ANO.QOTdRA, LJ.LT, 0,1  GOT  (IRA  »L)  *0  .  3350 

C  BRANCH  TO  5570  FROM  5440,08  3351 

5570  CONTINUE  3352 

C  BRANCH  TO  5580  FROM  5440,03  3351 

5580  CONTINUE  3354 

IF(IRE8(M) ,GT,0)  GO  TO  5610  3355 

:  «j«  compute  got.  non-res  3356 

ITMP#NUPST(M)  3357 

DO  5600  LX»1,NL  3358 

L«NL-LX*1  3359 

OOT(M,L)«QL<I»M)*CLOCL-aOIVR(M)  3360 


EXHIBIT  0 
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00  55<j0  K«i»lTMP 
IR«IUPST(H#K) 

BRANCH  TO  5590  PRO*  5580.06 

QOT(M,L)«QOT(H,l)»QOT(lR,t) 
lF<I0v3P.ie.0.OR.L.lT,NL)  GO  TO  5600 
TmP«GmX ( I »  h ) 

if(Tmp;gt,omaxa(m))tmp.qm*xa(m) 

IF  ( OOT (M*L),LE,TmP)  so  TO  5600 
IObIDIV(M) 

IF ( ID .LE ,0 )GO  TO  5600 

T£Mp*QOT(M,t>»TMP 

ODIVAfl, I0)«00IVA(I,I0)*TE«P 
OD!VR(M)«OOIVRCM)*TEMP 
flOT(M,L)pTHP 

BRANCH  TO  5600  PROM 
5590. OR  5590,06 

CONTINUE 

DIAGNOSTIC 

BRANCH  to  561  0  PROM 

IFCIDgST.GT.OJWRJTF (6,5620) 

,  M, i.OA(I.h) , (QOT(H.N) ,N«l,Nt) 

BRANCH  TO  5620  PROM 

FORMAT  CSH  M«I3,5H  I«15,6H  QAmF8,0,7H  GOT«l 

DIVERSION  SHORTAGE 
IF(IDlV(M).lE,0)  GO  TO  5650 
TMP«G0TtH#  n»QLKG(M) 

IF(IDVPR.lE,»l)TMP»00T(M#2)«Qi.KG(M) 

IP  ( TMp.'GE  ,0, )  GO  TO  5650 
TEMp*.TMP 
ID«XDIV(M) 

IP{TEMP.GT,GOIVA(I,IDnTEMP»QDIVA(I,ID) 
ODIVA(I,ID)"QDIVA(I,ID)*TEMP 

IP(IRES(M) ,LE,0)  GO  TO  5630 
OOMN A { M ) *OOMN A (M)*T£MP 
QOMNB(M)*QOMNB(Mj*TEMP 

IF(OOmn(M),i.T.QOmnb(M))OOmn(m)BqOmnb(M) 


5580.03 


5580.01 


5610,00 

OPB.O) 


C  »K» 

c 

5650 


BRANCH  to  56 

DO  5640  l«l»NL 
QOT(M,L)»QaT(M,t)*TEMP 

IP(IReS(M).GT,0)QO<m»U»QO(m,l)aTEmp 

BRANCH  TO  56 

CONTINUE 

IF(QOT(M»1),LT,0,)QOT(M,1)«0, 

ODIVR(M)«ODIVR(M)«TEMP 

IP (OOTMX (M) ,GT,QOT(m, 1) )QOTMX(M).GOT(M,n 
LOCATE  level  POR  DESIRED  RELEASE 

BRANCH  TO  56 

TEMP  iQA(I.H) 

IPCpO 

DO  5670  L  *l»NL 

IP  (TpMP  ,LTtQOT(M,L)>  GO  TO  5670 
IF  (L.GT.i)  GO  TO  5660 
*L  •  1. 

GO  TO  5690 


5630  PROM  5620.09 


5640  PROM  5630.00 


5650  PROM  5620.01 


BRANCH 


5660  FROM  5650.04 


TMP  ■  L«l 

AL  *  (TEMP  -007(5, L»t) )  /  (GOT (M, l >-OOT ( m, l- 1)) *Tmp 
GO  TO  5680 


BRANCH  TO  5670  PROM  5650.02 


CONTINUE 
AL  •  NL 


BRANCH 


5680  PROM  5660.02 


IE  (*L.’GE,2.)  GO  TO  5720 
SmORTaOC  in  bottom  buffer  ZONE 

BRANCH  TO  5690  FROM  5650.06 

TMP  •  0MIN2(I,M) 

iPflRwBR.GT, (•! ).and.thppr,gt.tmp)tmp*tmppr 
IP  ( GOT ( h  »  2 )  , GE i  Q0T(M,1)J  GO  TO  5700 

Al  »  (TmP"QOT (M, 1 ) ) /(GOT (m,2)«QOT(m, 1 ) )tl , 

IP  (AL.l.)  5700,5850,5710 

8RANCH  TO  5700  FROM  5690,02 

*L»  1. 


3161 

3362 

3363 

3364 

3365 

3366 

3367 

3368 
3169 

3370 

3371 

3372 

3373 

3374 

5590.01  3375 
1376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 
3400 

3405 

3406 

5620,04  3407 
3408 
1409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

5650.03  3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 
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EXHIBIT  4 


60  TO  5850  3433 

C  BRANCH  TO  5710  FROM  5690, 0«  3034 

5710  IF  <Al,GT.2,l  AL*2,  3435 

GO  TO  5650  3436 

C  BRANCH  TO  5720  FROH  5680,00  3437 

5720  ITF«NFL  3^36 

TMPpITP  3434 

IF  (AL.LE.TMP)  GO  TQ  5850  3440 

C  (Li  FLOOD  RELEASES  34m 

IFC«1  344? 

GO  TO  5650  3443 

C  BRANCH  TO  5730  FROH  5910,01  3444 

5730  TEHR«0.  3445 

ITF«NFL  3446 

IF  (IRES(M)  ,LE,0)  TEMRtCFLOD^CLOCL  3447 

TMPpQM)((I,m)  3446 

IF(TmP.GT,QMAXA(m) )TMP»QHAXA(M)  3444 

TEHP«ThP.Ol(I,M)*TEhP  3450 

TMP  ■  0,  3451 

L«NL  1452 

IF (GOT(m/NL) ,GT ,TEmP)  GO  TO  5770  3453 

C  HINOR  FLOOD  CONTROL  RELEASES,  THp«0,  3454 

L"!TP61  3455 

IF  (QOT(M, ITP),LT,TfHP,0R,00T(M#NL),6E,G0T(M,lTP))  GO  TO  5760  3456 

C  FULL  FLOOD  CONTROL  RELEASES  3457 

I TP«I TP* 1  3458 

DO  5740  L*ITR,NL  3454 

IF(TEMP,GE.OPT(H,L)5  GO  TO  5750  3460 

C  BRANCH  TO  5740  FROM  5730,12  3461 

5740  CONTINUE  S4<,? 

L«NL  3063 

C  BRANCH  TO  5750  FROH  5730,11  3464 

5750  TMPbO,  3465 

TmpG«QOT(m,l)-QOT(m,l.h  3066 

IF(TMPg,LT,0.)  TMP«(TEMP-Q0T(M,L»1))/TMPG  3467 

C  flood  CONTROL  RELEASFS  -  BALANCE  HITH  UPSTREAM  RESERVOIRS  3468 

C  BRANCH  TO  5760  FROM  5730.10  3469 

3760  IF  (TMP. LT. 0,1  TMP.e,  3470 

IF  (TMP.LE.l.)  GO  To  5780  3471 

C  BRANCH  TO  5770  FROM  5750,06  3472 

5770  TMP  .  1,  3473 

C  BRANCH  TO  5780  FROM  5760,01  3474 

5760  AL«L"1  3475 

AL  •  AL*TMP  3476 

DO  5840  K«1 ,  NRESM  3477 

IR«IRESM(M,K)  3476 

IF  (IR.LE.O)  IRp(-IR)  3474 

TEMP«QOT(IR,L»l  )*d  .'•TMP)*QOT(lR,L)*THP  34  80 

TMPApTCmP  3481 

ITMPBNUPST(IR)  3482 

IF(ITMP.LE.O)  GO  TO  5800  3463 

DO  5790  ITP«1,ITMP  3484 

IRA«IUPST(IR,ITP)  3485 

C  BRANCH  TO  5790  FROM  5780.09  3486 

5790  TMPAiTMPA*QA(I,IRA)  3487 

C  BRANCH  TO  5800  FROM  5780,08  3088 

5800  IF(IR.EQ.M)  GO  TO  5810  3489 

IF  (OA(I,IR),GE.TEMP*,l)  GO  TO  5810  3490 

IF  (QA(I,IP),GE,T£Mp«,i)  GO  TO  5820  3441 

C  BRANCH  TO  S8J0  FROM  5600.00  5800.01  3492 

5810  ICSI(I,IR)  ■3*100*M  3443 

OA ( I , I R }  «  TFMP  3494 

C  BRANCH  TO  5820  FROM  5800.02  3495 

5820  IF ( OCONS ( I , IR ) ,GT , Tf mp) QC0N3( I , IR) bTEmP  3446 

QOMN ( IRJpTMPA  3447 

IF(QOMN(IRi ,GT,30mN*( IR))QOMN(IR)«QOMNA (IR)  3448 

IF (OnMN(IR),LT,OOHNB{lR))QOMN(IR)»DOMNB(IR)  3444 

IF  (OOTmn  (Iff  ),GT,  Tempt  aOT»<N(XR)»TEMP  35  50 

C  DIAGNOSTIC  3501 

IF(IOGST,GT,0)MRITE(6,5830)  3502 

.  lR,I,QA(I,lR)#AL,(QOT(IR,N),N»i,NL),OOTMNnR),QOTMx(lR)  3503 

C  BRANCH  TO  5830  FROM  5820,05  5900,00  3504 


EXHIBIT  4 


*36» 


r»  r»  n 


5s3n 

F QRM  A T  1 44 M  IR«!J,5h  I«I3,6M  QAaFB 

,  0  »  6H  ALBF6.3, 

3505 

,  7H  QCTa  1088,0) 

3506 

C 

BRANCH  TP 

5840  FROM 

5780.0? 

S507 

SS40 

CONTINUE 

3508 

00  TP  8920 

3509 

C  «M» 

conservation  releases  -  balance 

* ! Th  UPSTREAM  RESERVOIRS  *  * 

3510 

C 

BRANCH  TP 

5850  FROM 

5690^04 

5700.01 

351  1 

C 

5710. 

01  5720.02 

5720.04 

3512 

5850 

00  59io  Kai.NRESH 

3513 

IR  «  IRESM(M,K) 

3514 

IF(IR.IE.O)  IRt(.IR) 

3515 

L  »  AL 

3516 

TmPsl 

3517 

tmP  a  AL-TMP 

3518 

TEMPbQOT ( I r , L ) 

3519 

IFCL.LT.NL)TEMPaOOT(!P,t)*(l.-TMP)AQOT(IR,LAl )*THP 

3520 

IF(TEmp,LT.QQTMN(IR))  GO  TO  5880 

3521 

QASUHaO, 

3522 

IFINUpSTdR)  .LE.O)  GO  TO  5870 

3523 

ITMPbnIIPSTCIR) 

3524 

00  5860  ITP»l » ITMP 

3525 

IRAalyPST ( IR , I  TP) 

3526 

C 

BRANCH  TO 

5860  FROM 

5850.12 

3527 

5860 

QASUHaO ASUM*QA(I,  IRA) 

3528 

C 

BRANCH  TP 

5870  PROM 

5850.10 

3529 

5870 

QOHN(iR)aTEMP«QASUH 

3530 

QOThnj  JR jaTEHP 

3531 

C 

BRANCH  TO 

5880  FROM 

5850.08 

3532 

5880 

IF(IFc.GT.O)  GO  TO  5910 

3533 

IF(IR.EQ.M)  GO  TO  5890 

3534 

IF  (QA(IiIR),GE,TEMPa,1)  GO  TO  5890 

3535 

IF  (Qa(I.IP),GE,TEhP-,1)  GO  TO  5900 

3536 

C 

BRANCH  TO 

5890  FROM 

5880.01 

5880,02 

3537 

5890 

IC3E ( I , JR)  ■  IC8E ( I , M) 

3538 

QACI.IR)  ■  TEHp 

3539 

GCONSn.IRJaTCHp 

3540 

C 

DIAGNOSTIC 

3541 

C 

BRANCH  TO 

5900  FROM 

5880.03 

3542 

5600 

IF(IDGST.GT,0)WRITE(6.5830) 

3543 

.  I«,I,QA(I,IR),AL, (QOT<!R,N),Nal,NL) 

, QOTmn ( I R ) , 

OOTmx { IR ) 

3544 

C 

BRANCH  TO 

5910  FROM 

5850 .00 

5880.00 

3545 

5910 

CONTINUE 

3546 

IF(IFc.GT.O)  GO  TO  5730 

3547 

C 

BRANCH  TO 

5920  FROM 

5840.01 

3548 

59?0 

IF(NUPST(M),LE,0,OR,IRES(H) ,GT,0)  GO 

TP  5940 

3549 

QASUHaO. 

3550 

I ThPbnUPST ( h  ) 

3551 

00  5930  ITPal.ITHP 

3552 

IRAaluPST(HiITP) 

3553 

QASUHbOASUH  +  QA ( I , IRA  ) 

3554 

C 

BRANCH  TO 

5930  FRPM 

5  9  2  0  .*  0  3 

3555 

5930 

continue 

3556 

QA{I,MlaQL(I,M)«ODIVR(H)^QASUH 

3557 

IF(QA(T,h) ,GF,0,.OR.IDIV(H) ,LE,0)  GO 

TP  5940 

3558 

C 

OIVERSION  SHORTAGE 

3559 

lOalOjV(M) 

3560 

OOIVA(I,IO)aQDIVA(I#IO)*QA(I,H) 

3561 

QDIVR(M)aQDIVR(M)*QA(I»M) 

3562 

QA ( I , M) aO  • 

3563 

OCONJ (I.H)aO, 

3560 

C 

DO  LOOP  STARTS  AT  5140*1 

3565 

C 

BRANCH  to 

5940  FROM 

5140^01 

5010.03 

3566 

C 

5410, 

05  5410,10 

5920.00 

5930.02 

3567 

5940 

CONTINUE 

3568 

C  aNa 

COMPUTE  FLOWS  and  STORAGES  *  *  * 

***** 

*  *  *  * 

3569 

00  6100  MX«1 i NCPT 
Ma  ICPT(MX) 
QPREP(T|M)bQ|.(I#m) 

01 ( I f  m  )  a  0 U  C I #  M  5 "OOt  V9 ( m ) 

temp  .  o. 

I0«I0IV(M) 

I F  (to)  5950,5970,5960 


•  37« 


3570 

3571 
357? 
3573 
357U 

3575 

3576 


EXHIBIT  41 


5950  IDb («IO) 

c  BRANCH  TP  59fcf)  FRHM  5990,07 

5960  0HI,M)"(JI(I»,O»00TVA(I*ID) 

TERR  «  QPI  Vi (I # 10) 

c  BRANCH  TO  5970  FROM  5990.07 

5970  TF  (NUp9T(R)  ,LE  .0  )  0,0  TO  5990 
MKa  nUPST(m) 

DO  5980  «al,N« 

I R  a  IUPSKm,*) 

OPREPd,*)  a  QPREPd  ,h)*0PPEPC  I#  IP) 
c  BRANCH  TO  5980  FROM  5970,02 

5980  OKI,*)  a  0IfI*H)*8AfI,IP) 

IF  (IRE8(M).LE.O)  QA(T,m)bQKI,m)*T£MP 
c  BRANCH  TO  5990  FRO*  5970,00 

5990  IF  ( !RE3(M),LE.O)  GO  TO  6100 

STORB ( I ,  *  )  a  ST0RA(>O«EVTHP(*)*(0in#M)»0*n,H)-TtHP)*CQS 

C  ELlMI*ATE  POSSIBLE  NEGATIVE  STORAGES 

IF  (ST OR B(I, *O.GT, (»,!))  GO  TO  6000 
EVTMP(“)aEVTuP(H)+9TPRB(I*M) 

STORB ( I » M )  ■  0, 

c  BRANCH  TO  6000  FROM  5990,02 

6000  STRAV(H)  ■  ( S TORA ( * ) ♦ STORB ( I , M } ) * , 5 
00  6010  ITMpa2, 10 
<■1 TMP 

IF  (STORBCI,*) .LE.STPRCM,*))  GO  TO  6020 
IF (STOR(M,K) ,GT,9TOR(m,K«1  3  3  GO  TO  6010 
KaK*l 

GO  TO  6020 

c  BRANCH  TO  6010  FROM  6000,01 

6010  CONTINUE 

c  K  "  10  BRANCH  TO  6020  FROM  6000.02 

6020  TEMP  a  o. 

IF(STOR(m,K) ,GT,STOr(m,k»1 3 3 

TEMP  a  (STORB( I ,m)«9TOR(M,k»1 ) 3/ (3TOR(m,K 3»5TOR(m#K»1  )  3 

ELEV ( I#*)  a  EL{M/B»i)*(1,«TemP)+ee(m,k)*Temp 

IF  (IPWR(M).LE.O)  GO  TO  6100 

IPalPWR(M) 

POWRPtl# !P)aPwRMX(Ip)*UVLQDlIP) 

IF  (IPOw(IP)al )6 100, 6050,6060 
6030  00  6090  Ka2, 10 

IF  (STRAV(M).lE,CQOfLdP#K3)  GO  TO  6050 
c  BRANCH  TO  6090  FROM  6030,00 

6090  CONTINUE 
Kai  0 

c  BRANCH  TO  6050  FROM  6030.01 

6050  TEHPaO, 

IF  (COOELdP,'O.GT.cOOELdP,F«i  )) 

,  TEMPa (STR* V (*  JaCQOtl ( IP#  F«1 ) ) / (CGOEL (IP, *  3 »C QOEL (IP » *" 1 3  3 
GO  TO  6090 

c  BRANCH  TO  6060  F  OM  6020. OT 

6060  PO  60T0  Ka2# 1 0 

IF  (GA ( I , M ) ,LE, COOpL ( IP, F  3 )  GO  TO  6080 

c  BRANCH  TO  6070  FROM  6060,00 

6070  CONTINUE 
*<■10 

c  BRANCH  TO  6080  FROM  6060,01 

6080  TEHPaO, 

IF  (COO|L(IP,K),GT,CGOEL(IP,K»13) 

,  TEMpa(OA(I,M)-C0OELdP#K»l ) )  /  (CQOEL  d  P,  F  3  •COOEL  (IP,  K«  1 3  3 
c  BRANCH  TO  6090  FROM  6050,03 

6090  POWRPd#|P)BPKPwRdP,K»l)*(l,aTEMP)9PKPt*R(IP#K)*TEMP 
c  BRANCH  TO  6100  FROM  5990,01  5990 

C  6020.09  6020,07 

^6100  CONTINUE  4(^0C4TC  CoNSFR V  AT  ION  RELEASES  TO  UPSTREAM  RESERVOIRS 

00  6130  mxbi.nCPT 
IT*P  a  NCPT.MXA1 
MalCPT (ITMP) 

IF(acON9d,M),GT.GAd,M))  QcONS(I,M)aOA(I,M) 

|F  (NUPST(M),LE,0)  GO  TO  6130 

NRaNUPST(M) 


3577 

35TB 

3579 

3580 

3581 

3582 
3563 

3589 

3585 

3586 

3587 

3588 
3569 

3590 

3591 

3592 

3593 
3599 

3595 

3596 

3597 

3598 

3599 

3599.1 

3600 

3600.1 

3600.2 

3600.3 

3601 

3602 

3603 
3609 

3605 

3606 

3607 

3608 

3609 

3610 

3611 

3612 

3613 
3619 

3615 

3616 

3617 
3616 

3619 

3620 

3621 

3622 

3623 
3629 

3625 

3626 

3627 

3628 

3629 

3630 

3631 

3632 

3633 
3639 

,00  3635 

3636 

3637 

3638 

3639 

3690 

3691 

3692 

3693 
3699 


EXHJtir  « 


c 

6110 


C 

6120 


C 

c 

6130 


C 


c 


c 

6140 

c 

6150 

C  «P« 


6160 


c 


c 

6170 


C 

6180 


TC*P«t.  3645 

IF  (!RPS(*>.ie.O)  TEMPbCLOCL  3646 

QAX«0.  3647 

OCX«0.  3648 

00  6110  K«1 ,NR  3649 

IR»IUp3T(m,k)  3650 

QAX«QaX*QA(I,IR)  3651 

BRANCH  TO  6110  FROM  6100.11  3652 

QCX«QCX*QCOfc9(I,!R)  3653 

IF  (Qax.LE.OCX)  GO  TO  6130  365u 

TMP«(gCON8(I>M)*QDIVR(M).Qi_<I#M)*TEMP-QCX)/(QAX*fiCX)  1655 

IF  (TNP.Lfc.O,)  CO  TO  6130  1656 

IF  (TmP.cT.1.)  THr«i,  1657 

00  6120  K«1,NR  3658 

IR«IUP9T(M,K)  3659 

BRANCH  TO  6120  PROH  6110.05  3660 

QCOnSII, IR)«OCONS( I , IR)*(GA( I, IR)*QCONS(I# IR) )*TMP  1661 

BRANCH  TO  6130  FROM  6 1  0 0 0 1  6100,05  1662 

6110,01  6110,01  1663 

CONTINUE  1664 

IF  (NPwR.LE.O)  GO  TO  6150  3665 

COMPUTE  POWER  3666 

00  6140  I P* 1 »  NPwR  3667 

M  ■  IPR(IP)  1668 

CPWR»fPY(IP)*CK*(  3669 

TEHP«OLKG(H)*, 000000001  1670 

IF  (Oa( I,M) .UT.TEMP)  0A(I,m)«TEHP  3671 

PORER(I,IP)«CPnR*HFAD(1P)*  QA ( I , m ) *QL*G ( m ) )  3672 

USE  Kw/CFS  TA8LF  3673 

IF(eFPCy(IP),lT,(-l,5))P0«ER(I,IP)»CQA(I,M)-flLt<GCH))*EFY(IP)  167  4 

TmPP(jp)«POhFR(I,IP)«,1  3675 

IFCPCMIIPJ.LE.O)  GO  TO  6140  3676 

IF(POwPR(I»IP),GT,POHRP(I»IP))  POHER(I,IP)«POHRPfI,IP)  3677 

BRANCH  TO  6140  FROM  6130.02  6130,10  3678 

POwER(T,IP)«POhER(I,IP)oCNST  3679 

BRANCH  TO  6150  FROM  6130.01  3660 

IF(NP»R3.LE,0,OR.NC,Gt,NCYCL)  Gn  Tn  6280  3661 

DISTRIBUTE  SYSTEM  POwfR  *****  3662 

00  6270  I X» 1 , NPwPS  3663 

ITEMP,NRE3P(IX3  3664 

TMPRS«PwRSn,Ix)  3665 

00  6160  L  •  1,NL  3686 

PGTCLIbO,  3687 

PGAUT«0.  3688 

P*ERT»0 .  3689 

POMRTaO,  3690 

00  6190  K»1,ITEMP  369J 

m« IRES® ( I X  ,  K  )  3692 

IP«IP*R(M)  3693 

PGAU(Ki»PQMfR( I, IP)  1694 

TMP«Po*«P(I,IP)*CNST  3695 

TEMP»P*RMXfIP)*PFMAX(IP)*CNST  3696 

IFtTMp;cT,7tMP)TMP»TEMP  3697 

IFf PG^J(X) ,GT,7MP)PGAU(6)pTMP  3698 

IF(NC.EQ.l)  PHERfl, IP)»PGAU(X)  3699 

IF(P*eR(I» IR).LT,PO»RCI, IP) )PHfR( I» IP)bPO*R(T, IP)  3700 

SEARCH  FOR  LEVfcl  TO  DFVFLOP  SYSTEM  power  3701 

00  6160  L«1#NL  3702 

TEMP«POHER(I,IP)*(PG(M,L,IX)*GLKG(M))/(QA(I,M).oiKr.(M))  37  0  3 

IF(TEMP.GT,TMP)TEMP,TMP  3704 

I T  P»2  3705 

IF ( I PwPR , GT  ,  0  )  I TPe 1  3706 

IFa.LF.ITP)  GO  TO  61  70  3707 

TmpabPG(m*ITP,IX)  3708 

!FCTmpa.GT,PO«R(I,IP))  T“Pa*POMR ( I .  I®)  3709 

IFITEMP.LT.TMPA)  TE"P«TMPA  3710 

BRANCH  TO  6170  FROM  M60.19  371  1 

PGCm.e, IX)«TEmP  3712 

PGT(L)«PGT(L)*TE“P  3713 

BRANCH  TT  6180  FROM  6160.14  37)4 

CONTINUE  3715 

»wEPT,P*FRT*PwER(I,IP)  3716 


■  39* 


exhibit  a 


POWRTPPOWRT*PO*R< I , JP)  5717 

C  BRANCH  TO  61^0  PRO*  6160. OR  5718 

6190  60AUT«P0aUT*pgaU(K)  5719 

TfMPaO ,  3720 

00  6200  L«2,nl  5721 

If (THPRs,tT,PGT(l.n  GO  TO  6200  3722 

IP(6GT(L).lT.PGT(L-lh  TEmPb ( TmPR$*PGT (L > ) ' < PGT (L-t) -PGT <L > )  1723 

IPfTfMP.GT.  1 .  )Te^P«l 3720 
GO  TO  6210  3725 

C  BRANCH  TO  6200  PRO*  616Ci02  6190.03  3726 

6200  CONTINUE  3727 

L*NL  3728 

C  aQa  ASSIGN  SYSTEM  POmER  3729 

C  BRANCH  TO  6210  PROM  6190,06  3730 

6210  PMfRTao.  3731 

50  6220  Kal,ITEMP  3732 

MalRESPClX.K)  3733 

I  Pa IPnR(m)  3734 

PmERCI, IP)aPG(H,L,tXJ*( l,-TEMP) *PG(m,l-1, IX)*TEMP  3735 

pxfRTaP-E»T*PMER(I,!P)  3736 

IPX ( IP  )  a  l  3737 

IP(PwER<!,IP),LT.TMPP(IP))IPX(IX)aO  3738 

c  BRANCH  TO  6220  PROM  6210,01  1739 

6220  CONTINUE  3740 

IP (PHERT,GTt(TMp93«>oi), AND, PmFRT.LT, (TMPR3*, 01))  GO  TO  6270  3741 

TMPiaO.  3742 

TMPa  0 ,  3743 

TEMPaO,  1744 

00  6230  Ka l , I  TEMP  37«5 

mb  I RF  3P ( I  X  »  K  )  3746 

IPalPwR(M)  3747 

TMP*«TMPA+PwRMX(IP)*PFMAX(IP)*CNST  3748 

TMPpTMPpPOwR(I.IP)  1749 

C  BRANCH  TO  6210  PROM  6220,05  3750 

6230  TE«PbTEmPaPmFR(I,IP)  3751 

IPfTEMP.GE.PHRSd.IX))  GO  TO  6250  3752 

TMP«(PHRS(I, IX)«TEMp)/(TMP*-TtMP)  3753 

IMTmP.gT.I.ITmPpi,  3754 

DO  6240  Ka 1 , 1  TEMP  3755 

mb  I RESP ( I  X , K )  3756 

IPalPMR(M)  3757 

PMfR(I, IP)aPMRMXCIP)*PPMAX(IP)*CNST*TMP*PKER(I, IP)*C1 ,*TMP)  3T5B 

IPX(IP)al  5759 

IF(PmER(I,IP),LT,T“PP(IP))IPx(IX)bO  3760 

C  BRANCH  TO  6240  PROM  6230.04  3761 

6240  CONTINUE  3762 

GO  TO  6270  3763 

C  BRANCH  TO  6250  PRO*  6230,01  3764 

6250  TMPa(PHRSCI,IX)-TMP)/(T£MP«TMP)  J?6S 

IP (TMP,LT ,0, )TMP«0,  3766 

OO  6260  Kal.ITfMP  3767 

mbIRE3P( IX, K *  1768 

rPalPKR(M)  1769 

P"ER(I, IP)aPKER(I,IP)*TMP*POHR(I.IP)*(l,-TMP)  1770 

IPX(IP)at  5771 

IP(PmERCI,IP).LT.TMPP(IP))IPX(IX)»0  3772 

C  BRANCH  to  6260  PROM  6250,02  3773 

6260  CONTINUE  3774 

C  BRANCH  TO  6270  PROM  6150.01  6220,01  3775 

C  6240.01  3776 

6270  CONTINUE  3777 

C  BRANCH  BACK  FOR  SECONO  APPROXIMATION  ********  3778 

C  BRANCH  TO  6280  FROM  6150,00  3779 

6280  IP  (NC.LT.NCYCL)  GO  TO  5080  3780 

C  afia  COMPijTF  PO*pR#  SHORTAGES  AND  ANNUAL  SUMS  3781 

IP  (NPmR.LE.0)  GO  Tn  6340  376? 

CTXal,  3783 

IP ( JPHKm.GT.O)  CTxbcT  3764 

IF f NPmRS.lE.0)  GO  To  6300  3785 

DO  629(1  I  Xa  l  ,  NP*R3  3786 

6290  TMPP  C I X )a0  ,  3787 

C  BRANCH  TO  6300  PRO“  6280,04  3788 


Exhibit  4 


*40* 


MOO  oc  6310  I P ■  1  nPwR  3789 

««IPRlJP)  3790 

T£MPBpwRKX(  IP)  *OVLOO  (  IP) *CNST  3791 

IF  ( POwpR  ( I ,  IP)  .GT.TemPJPOaFMI,  IP)«TE"P  379? 

9YPmR(IP)  ■  syP*R(!P)tPO*ER(I,TP)*CTX  3794 

SYPR(JP)  «  SVPR(IP)+PDWR(I|  IP)*CTX  3799 

Sy3P{IP)«SVSP(IP)pP*.FRfI#IP)*CTX  3795 

ShRTP ( I » IP)  ■  POWR  C I , IP)»PO"FR(I , IP)  3796 

3V3SP(l,IP>«P“FR(If IP)-PnPER(I,lP)  3797 

!F(SV3SP(I»IP).LTt0t JSYSSPf I,IP)»0,  3798 

!F(S¥33PfI, IP) ,6T. .01 ) NSwPS ( m ) «nShPS ( * ) ♦ 1  3799 

IF  C3YSSP( I . IP) ,GT,SPSYX(P) ) SPS“X(P)e3VS8P( ! , IP)  36  0  0 

IF  (Swr  TP  f  I,  IP)  ,GT,  1  .  )  nShP(m)«N8hPCM)«-1  38  01 

IF<8hRTP(I,IP),cT,3hPmx{m))  ShPmX(M)pShRTP(I,IP)  380? 

IF  (9hRTP(I#IP),lT,0.)  ShRTP ( I , I P ) »0 ,  3803 

Ix«I3y9R(m)  3809 

IMIX.UE.OJGO  TO  6310  3805 

TmPP(ix)»T«PP(IX)*3HRTPCI, IP)  3806 

8YSVS(IP)"SV3V3(IP)*SY33P(I#IP)*CTX  3807 

C  BRANCH  TO  6310  FROM  6300.‘00  6300.16  3808 

6310  8v3hP(1P)  «  StShP(IP)t3hPTP(I. !P)*CTX  3809 

IF  (  np*/R3  ,UE  ,  0  )  GO  TO  6300  3810 

DO  6330  IX«1,NP*RS  3811 

mX*kP*R*IX  381? 

PC"ER ( I »  MX ) «0  ,  3813 

P*E« t I , MX )*0 ,  381« 

I TfHPpNRFSP (IX)  3815 

DO  65?0  K«l,ITfMP  3816 

*«IRP3P(IX»K)  3817 

IP«IPwR(P)  3818 

TEMPbpcmFRCI ,  IP)  3819 

POWER(l,HX)*PQHtR(I,MX)YTtHP  38?0 

A TMP»pnR»X( IP) *PF8AX( IP) *CN3T  38? 1 

IF(TFhp.GT.aTmP)  TFmp«*Tmp  36?? 

P*ER( I ,MX)«Pw£R(i ,mx)tT£mp  38?3 

C  BRANCH  TO  63?0  PR Om  6310.’07  38?9 

6320  CONTINUE  3825 

3YP*R(mx)»3YP*.R£nX)tPO*«ER(I  ,mx)*CTX  3826 

8YP«(nX)p8YPR(mx)*PpR8(I. I X ) *C  T  X  1627 

9mRTP(I ,hx)«PWR3( I, IX)*PweR(I#hx)  3828 

IF (Shrtp (I, MX) .LT,T8PP(IX))8hRTP(I,«X)«TmPP(ix)  3829 

9YSP(nX)pSY8P(hx)4PpFR<I,HX)*CTX  3830 

IF£8HRTP(I,MX).LT,0,)  8HRTP(I»hx)«0,  3811 

IF (8hrTP( I, NX) ,GT, 1 , )N3RTP( IX)«NSRTP( IX)*1  383? 

IP(8«RTP(I»mx) ,GT,SYM5P(IX) )8Y*8PCIX)p9HRTP(I,mx)  1833 

3Y3mP(mx)p8Y3hP(mX)»8hRTP(I,mx)«CTX  183a 

C  BRANCH  TO  6330  FROM  631 0.0?  3635 

6330  CONTINUE  3836 

C  «3»  PLOW  and  STORAGE  Summary  3817 

C  BRANCH  TO  63«0  FROM  6260.'oi  6310.01  3838 

6390  DC  6950  mx«1,nCPT  3839 

Mp  ICPT(MX)  3690 

IF  (IRF3(H),uE.O)  GO  TO  6930  3891 

EvP(!,m)pEVTmP(*)  3892 

SyEVP(M)  ■  SYEVP(H)*fVP(I,H)  3893 

JTORA(h)  •  STORBd.H)  3899 

TmPp 1  ,  3695 

ITP«NFL  3696 

ThPG»8TORLU.h,  1  )  3697 

TEHP«$tqRU(I,n,iTP)«Tnpg  3898 

IMTfMP.UE.C.)  GO  TO  6390  3699 

TnP»(jtORA (m)»ThPG)/TEmP  3650 

IF(T“p«.7)  6350,6350,6380  3851 

6350  IP(Tmp,'gT,,9)  GO  TO  6170  365? 

IF (T“P.GT,,01  )  GO  TO  6360  3853 

N3TOR(!,“, 10)»NSTOR(I,«, 10)*1  3859 

GO  TO  6910  3855 

C  BRANCH  TO  6360  FROM  6S50.‘01  3656 

6160  IMT“P ’lE.,2)  n$tCR(I,“,9)»N$T0R{I,m,9)*1  1857 

IF ( T-p.OT, ,2)  n»T0RCI,«,8)»n3T0R(I,m.8)*1  3856 

00  TO  6910  3859 

c  BRANCH  TO  6370  FROM  6350.00  I860 


•  9  1  • 


EXHIBIT  9 


6370 


C 

6360 


C 

63^0 


C 

640  0 
C 
C 

6410 


C 

642(1 

C 

r 

6430 


c 

6440 


c 

6430 


C 

6460 

C 

6  4  70 


IF(TmP,LE..6) 
iff  TMPtr,T,,6) 
50  TO  6410 

IF (TMP.GT.,9) 
IF (TMP.LE..A) 
If f Tmp.gT, .63 
50  rn  64io 


NSTOB(I.M,7)a\STnRtI,M,7)*l 

^ST0RfI/M/6)»^STn»(i,M,b)+l 

BRANCH  TO  6360 

GC  TO  63*90 

NSTCs  (7  .  "#i>)«N9TORd  »m,5)M 
NST0R(I,«,4)eN8Tn»(I,M,4)*l 

BRANCH  TO  63*90 


If  fTHP.Gt ,  ,99)  GO  TO  64  0  u 

If (  T  M  P  .  L  F.  ,  ,95)  NS  TOR (I ,H, J)*NST0R(I ,M, S)*l 
If (TMP.GT,  .95)  NSTnpfI,M,2)»NST0R(I»M#2)»i 
GO  TO  6410 

BRANCH  TO  6400 


f  ROM 


FROM 


FROM 


NSTDRCI.M, i)=N9TnRf i,M,  1 ) ♦ 1 

BRANCH  TO  6410  FROM 
6370,0?  6380,03 

CNTRL ( I #  M ) BNL 
ATmp*STORA(h) 

00  6420  L«2»NL 
TEMP«STORL(I,M,t) 

T“P«STORL(I,**,L«l  ) 

IF(ATMP,GT,TEMP+,nGn  TO  6420 
CNTRL ( I »  M )  ■  l-l 
IF(TEMP,L£,TMP)GO  Tn  6«30 
*L  ■  L-l 

CNTRL (I ,m)»aL*(ATMP.tmP) /(TEMP.TMP) 

GO  TO  6430 

BRANCH  TO  6420  FROM 


CONTINUE 


BRANCH  TO  6430  FROM 


6410,10 

SHRTOCI.M)  •0MlNA(t,M)-GA(I,M) 

IF  (9hRTQ(I,h)(lT,0.)  3HRTQ(I,m:«0, 

IF(8HRTQ(I,M)  ,GT,  ,0nN3HHN(H)«NSHMN(M)*l 
IF(SHRTQ(I,M)  ,GT,3HMX(N))$HM*(H)fSMRT(3(I#M) 
IF(QM2(H)lLEtO,,ANO.OH2(H),GT,(-,S))GO  TO  6440 

3HRT2(I,m)«qmin2(I1m),QA(I,h) 

IF  (SHRT2CI »m) .L^  ,  0  )  3HRT2(I,H)«0, 

IF (SHRT2(I,H),GT,,0i )nSh2(h)«n3h2(m)61 
IF(3HRT2(I,m)  ,GT,3MHX2(Mn3HMX2(H)«SHRT2(I,M) 
3T3H?(M)aSV3H?(M)*9HRT2(I,MJ*CT 

BRANCH  TO  6440  FROM 

SV5L(M)  «  9YQL(M)T5Ld«M)*CT 
SYPRE(H)  s  3YPRE (m)*5PREP(I,m)«CT 
SyoI(m)  ■  3YQI(m)tQKI,M)«CT 
3V5MN(M)  ■  SyQMN(M)*QHlN2(I,M)*CT 

SYQ(M)  ■  3yQ(m)+QHIna(I,m)*C7 
3YCNS(H)  *  SYCNS(M)*QcON3(I,h)#cT 
SYQA(m)  ■  3YQA(m)*q*(I,m)*CT 
3Y3hO(«)  ■  SVSHa(M)  +  8HRTa(I,M)«;:T 

BRANCH  to  6430  FROM 

CONTINUE 

IF  (NDIV.lf.0)  GO  TO  6470 
DO  6460  ID«1,NDIV 
3HOIV(I,!D)«0. 

3TOV(IO)«SVOV(IO)*ODIV(I. I0)*C7 
3YDVA(ID)»3Y0VA(I0)*QDIVA(I#ID)»CT 
IF(RTIODdO)  ,LT.0,)GO  TO  6460 
8HOIV(I,ID)  •  'JDIVd,  ID)-QDIVA(I,  ID) 

IF  (3HDIV(I,ID),LT.O.)  8MDI V (I , ID )«0 , 

M«IDV(JD) 

IF (IDShT (M) ,gT , 0 )  3hDIV(I,ID)«0, 
IF(SHDIVd,IO),GT,.oi  )NDV3H(lD)»NDVSH(ID)tl 
!F($HDlV(I,ID),GT#SMDMXdD)  )3H0MX(ID)»SHDIV(1, 10) 
SYSHDdD)  ■  3Y3H0 ( ID i*SHDI V (I#ID)*CT 

BRANCH  TO  6460  FROM 


CONTI  NL.J. 


BRANCH  TO  6470  FROM 


continue 


return 

PN6 


6340.12 


6340,10 


6390,00 

6350,03 

6390,03 


6410,02 

6340,02 


6430.04 


6340,00 


6450,02 

,46 


3861 

3862 

3863 

3864 
1865 

3866 

3867 

3868 

6380,00  3869 

3870 

3871 

3872 

3873 

3874 

3875 

6360,02  3876 

3877 

3878 

3879 

3880 

3881 

3882 

3883 

3884 

3885 

3886 

5887 

5888 

6410,05  3889 
1890 

6410,07  3891 

3892 

3893 
3594 

3895 

3896 

3897 

3898 
3599 

3900 

3901 
390? 

3903 

3904 

3905 

3906 

3907 

3908 

3909 

3910 
39J1 
3912 
1913 

3914 

3915 

3916 

3917 
3915 

3919 

3920 

3921 
392? 
39?S 

3924 

3925 
5926 

6450,06  39?7 
3928 

6450,01  3929 

3930 

3931 
393? 


EXHIBIT  • 


-42- 


SUBROUTINE  CCON 

3933 

c 

economic  evaluation  of  multi-reservoir  operation 

3934 

dimension  a(i5),ben(12,8),q(12),smci2),v(8,40),vleft(8.40) 

9 

3935 

,  VMAX(8,40),VU(8,40) 

3936 

CONmOn/SFTa/ 

3937 

,  NYRS,IRG(10),CPT(40,8),ICPT(40),IRESC40),NCPT.NPER,f)UNIT, 

V  UN  1  T 

3938 

CONMON/BALT/  IECON,1E(8,40),IYEAR,NREsR(40),FCVAL(12,40,10), 

3939 

.  QlI(l2,40),MYVAL(12,40,8),TWpp(40),TMpX(12) 

I960 

CCMmOn/GAMmA/  I RE8m (40  *  30 ) 

3941 

c 

BRANCH  TO  7000  FROM 

7080.03 

7510,02 

3942 

7000 

F0RMAT(1H1 ) 

3943 

C 

BRANCH  TO  7010  FROM 

7110.02 

3944 

7010 

F0RHATC2X* 15A4) 

3945 

c 

BRANCH  TO  7020  FROM 

7100.00 

3946 

7020 

F0RMAT(I3,2X,8A4) 

3947 

C 

BRANCH  TO  7030  FROM 

7130.13 

7130.15 

3948 

C 

7150.16  7130,18 

3949 

7030 

FCRMAT(4X,I4,I8,8E8.0) 

3950 

C 

BRANCH  TO  7040  FROM 

7120.00 

3951 

7  04  0 

F0Rmat(I3,2X15A4) 

3952 

C 

BRANCH  TO  7050  FROM 

7550.01 

7600.01 

3953 

C 

7640,01  7680,01 

7720.01 

3954 

7050 

FORMAT (13  /  1 3F9 , 0  ) 

3955 

C 

BRANCH  TO  7060  FROM 

7530,02 

7580.01 

3956 

C 

7620,02  7660,02 

7700.02 

3957 

7060 

FORMAT (  1 1 H  $TA  SUM  1219) 

3958 

C 

BRANCH  TO  7070  FROM 

7560.01 

7610,01 

3959 

C 

7650,01  7690,01 

7730.01 

3960 

7070 

F0RMATC/3H  3m  13F9.0) 

3961 

C 

BRANCH  TO  7080  FROM 

7400.01 

3962 

7080 

FORMAT  C1H+,I3,14FB,1) 

3963 

C  bAb 

»  *  *  +  * 

*  9k  *  ft 

3964 

NL»8 

3965 

NE«NL 

3966 

WRITE  (  6,7000) 

3967 

WRITE  (  6,7090) 

3968 

7090 

FORMAT ( 37H  CONTROL  POINTS  IDFNTiriFD  AS  FOLLOWS  ) 

3969 

DO  7100  MX«1,NCPT 

3970 

MalCPT(MX) 

3971 

C 

BRANCH  TO  7100  FROM 

7090.01 

3972 

7100 

WRITE  (  6,7020)m, (CPT(m,k),k»1,8) 

3973 

WRITE  (  6,7110) 

3974 

7110 

FORMAT(«0H0BENfFIT  FUNCTIONS  IDENTIFIED  AS  FflLLOwS) 

3975 

DO  7120  J"1,NE 

3976 

C 

**C  ARD 

BN** 

3977 

READ(2,7010)(A(K),K»1,15) 

3978 

c 

BRANCH  TO  7120  FROM 

7110.01 

3979 

7120 

WRITE  (  6,70U0)J,(A(K),K«1,15) 

3900 

C  • 

*  *  *  *  * 

•  ft  *  * 

3981 

NEAaO 

3982 

DO  7510  J*l,Nfc 

3983 

I VRAa I VE A  R 

3984 

REWIND  3 

3905 

WRITF  f  6,7130)J 

3986 

7130 

FORMAT ( /22h  FUNCTIONS  FOR  BENEFIT  12) 

3987 

JTmPbq 

3988 

DO  7180  MX»1,NCPT 

3989 

MalCPT(MX) 

399ft 

VCJ,M)«o, 

3991 

VU(J,M)«0, 

3992 

VMAX(J,M)bO, 

3993 

VLEFT (J,m)bO, 

3994 

IF(If (J,M),LE,0)  GO  TO  7180 

3995 

JTMp«i 

3996 

mTHbO 

3997 

DO  7170  I«1,NPER 

3998 

IF(I.LE,MTH)  GO  TO  7170 

3999 

C 

**C  ARD 

BP** 

4000 

READ(2,7030)  ITmP,mtm,(hvval<I,m,L),Ib1,NL) 

4001 

IF(m,NE, ITMP)  GO  TO  7740 

4002 

WRITE  t  6,7030)ITMp,  mtm , <w Y V AL C I , M , L  ) ,  L«  1 ,  NL  ) 

4003 

C 

••CARD 

BV** 

4004 

•  43* 
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•EAD (2,7030)  ITmP,mTh, (EC VAL ( I , M,l ) , L*1 ) 

4005 

1F(M.N*,ITWP)  GO  TO  7700 

4006 

wRItE  (  6 #  70  30 ) I THP,  WTH, (rCvAC(I,H 

,L),l*l,NL) 

4007 

T*P»0, 

4008 

DO  7190  L«1#ML 

4009 

IF (tc VaL (I, m,L),GT,Tmp)Tmp,ec VAL ( I, M, 

L) 

4010 

c 

BRANCH  TO 

7140 

froh 

7130.20 

4011 

71«0 

continue 

4012 

V*AX( J,M)*vMAX(J,M)*TMP 

4013 

IF(MTH.lE.I)  GO  To  7170 

4014 

I  TP* !♦  1 

4015 

00  7160  IX*ITP,MTH 

4016 

VMAX(J,m)*VmaX(J,M)*TMP 

4017 

00  7150  L«i,NL 

4018 

MYVAl(!X,M,l)«HYVAL(I,m,L) 

4019 

c 

BRANCH  TO 

7150 

FROM 

7140,06 

4020 

7150 

ECVaL(IX,h,l)*ECVaL(I,m,L) 

4021 

C 

branch  to 

7160 

FROH 

7140.04 

4022 

7160 

CON7INUE 

4023 

C 

BRANCH  TO 

7170 

FROM 

7130,11 

7130,12  4024 

C 

7140.1 

02 

4025 

7170 

CONTINUE 

4026 

TEmRbNYRS 

4027 

VLPPT(J,h)«V«AX( J,*)*7EMP 

4028 

C 

BRANCH  TO 

7180 

FROM 

7130.02 

7130,08  4029 

7180 

CONTINUE 

4030 

IF(JTHP.EQ.l)  GO  Tn  7200 

4031 

WRITE  (  6,7190) 

4032 

7190 

EORMAT(5H  NONE) 

4033 

GO  TO  7510 

4034 

C  *B* 

*  *  *  *  COMPUTE  BENEFIT  VALUES  *  *  . 

ft  *  *  1 

k  *  * 

*  *  *  *  * 

*  *  *  •  4035 

C 

BRANCH  TO 

7200 

FROM 

7180.01 

4036 

7800 

DO  7500  IY*i,NYR3 

4037 

IF(IECON.LE.l)  GO  To  7240 

4038 

WRITE  (  6, 72 1 0  )  I YRA  .  J 

4039 

7210 

FORMAT (/39x,32HM0nthLY  UNALLOCATED  BENEFITS 

FOR  1 

(5, 

4040 

,  10M,  FUNCTION  12) 

4041 

WRITE  (  6,7220)(l,l«l,NPER) 

4042 

7220 

FORMAT  (UHASTA  1418) 

4043 

WRITE  (  6,7230) 

4044 

7250 

FORMAT  (114X.5HT0TAL) 

4045 

C 

BRANCH  TO 

7240 

FROM 

7200.01 

4046 

7240 

SUMA«0. 

4047 

DO  7250  1*1, nPER 

4048 

7250 

SM(I)*0, 

4049 

DO  7470  MX*1#NCPT 

4050 

«*ICPT(MX) 

4051 

ITMP«NRESR(M) 

4052 

IF(ITMP.lE.O)  GO  TO  7270 

4053 

DO  7260  K*1,ITMP 

4054 

7260 

READ  (3)  (QIICI.W), 1*1, NPER) 

4055 

READ  (3)  (TMPXCI), I.l.NPfR) 

4056 

C 

BRANCH  TO 

7270 

FROM 

7250,04 

4057 

7270 

DO  7*60  I  TP* 1 »  Nt 

4058 

IF(IE(ITP,m).lE.O)  C0  TO  7460 

4059 

C  «C* 

FIRST  PASS  THRU  ROUTINE 

4060 

IB*.l 

4061 

SUM*0, 

4062 

GO  TO  7240 

4063 

C 

BRANCH  TO 

7280 

FROM 

7430,01 

7450,01  4064 

7280 

I B*  1 

4065 

C 

BRANCH  TO 

7290 

FROM 

7270,04 

4066 

7290 

READ  (3)  (0(I),I*1,NPER) 

4067 

IF (ITP.EQ.J)  GO  TO  7300 

4068 

IF(IE(ITP,m),E0.1 )READ  (3) (0(1), I*l,NPfR) 

4069 

GO  TO  7460 

4076 

C 

BRANCH  TO 

7300 

FROM 

7290,01 

7390,01  4  OT 1 

7300 

DO  7370  1*1, NPER 

4072 

DO  7310  L«2,NL 

4073 

1F(HYVAl(I.M,L"1),Gy,NYVAL(I»m,L))GO  to  7320 

4874 

IF(Q(I)-hYVAL(I,m,L))  7330,7330,7310 

4075 

C 

BRANCH  TO 

7110 

FROM 

7300,01 

4076 

EXHIBIT  « 


•uu» 


7310  CONTINUE  “077 

L*N(.  “078 

CO  TH  7330  “079 

c  bR*nCh  to  7320  from  73oo.'o2  «oeo 

7320  L«L*1  “081 

c  BRANCH  TO  7330  FROM  7300.03  7310,02  “08? 

7330  TMP«t.  “063 

IF(HYvA|_(  I#  N»  L-1J.LT.  HYVAI.  (I.M,  (J)  “OBJ 

,TMP*(Q(i)«MYVAL<I,M,i.-t ))/{hYVAL(I,m,L)-mYVAL(I,n,L-1 ) )  “0  85 

TmPP(I)«ECVAL(I#h#L-1  )*(i  ,.TNP)*ECVAl  C I ,  « » L  )*TMP  “086 

C  1B*«1  RFC#  IB«0  NO  RES, 18*1  NO  RE 3  OR  0 1 V  <1087 

IF  (IB)  7340,7350,7360  “088 

73 JO  V(J,M)ov(J#N)*THPP(n  “089 

vu(J,m)®vu(J,m)ttmpp(I)  “09n 

8EN(I,  j).TMPP(I)  “091 

3UM*Sum*TMPP { 1 3  «09? 

SMCn«3MmATMPP(I)  J093 

VLEFT(J,M)«VL£FT(J,M)-TMPP(I)  «09j 

GO  TO  7370  “095 

C  BRANCH  TO  7350  FROM  7330.’0«  “096 

7350  8EN(!,J)*8EN(I,J)-Tmpp(I)  “097 

CO  TO  7370  “098 

C  BRANCH  TO  7380  FRO*  7330.0“  “099 

7360  BEN(I, J)«BEN(I, J)-THPP(i)  U100 

3uM«Su*«>TMPP(I)  “101 

9m(I),sm(I).TMPP(I)  “10? 

V(J,Mj*V(J,M)«TMPP(l)  “103 

VU(J,M)«VU(J,M)-TMPP(I)  «10« 

c  BRANCH  TO  7370  FROM  7300.'00  73U0.06  «105 

C  7350,01  “106 

7370  CONTINUE  “107 

IF  (IP(J,M)tNE,l)  GO  TO  7JOO  “108 

IF  (IB)  7380,7«30,7J00  “10R 

7380  I8»0  “110 

DO  7390  1*1  #  NPER  “111 

Q ( I )»Q  C I )*T*PX ( I )  “112 

C  BRANCH  TO  7390  FROM  7380.01  “113 

7390  CONTINUE  “11“ 

CO  TO  7300  “115 

C  BRANCH  TO  7«00  FRnw  7370.01  7370,0?  “116 

7«00  IF(IECnN.LEtl)00  TO  7«20  “117 

WRITE  (  6,7080)  H, (BEN(I,J),I«l,NPEfl)  “118 

WRITE  (  6 #  74 1  0 )  BUR  “119 

C  BRANCH  TO  7“  1 0  FROM  TUBO.'oi  “120 

7«10  FORMAT  ( 1 16X,F9, 1 )  “121 

c  BRANCH  TO  7“20  FROM  7“00.'00  “122 

7“20  9UMA«sumAt8UM  “123 

GO  TO  7“60  “12“ 

C  BRANCH  TO  7“ 30  FROM  7370.02  “125 

7“30  ITMPs«'RE8R(M)  “126 

IF(ITMP.LE.O)GC)  TO  7280  “127 

00  7“50  I*1#NPPR  “128 

DO  7““Q  K* 1 # I TMP  “129 

IR*IRE8M(M,R)  “130 

IF(IR.LT,0)IR*»2R  “131 

C  BRANCH  TO  7““0  FROM  7430.03  “13? 

7““0  V(J,!R)*V(J,IR)FBEN(I,J)*QII(I,K)  “133 

V(J,M)*v(J,M)«BEN(I, J)  “13“ 

BEN(I,J)*BEN(I, J)tTMPP(I j  “135 

C  BRANCH  TO  7“50  FROM  7430.02  >136 

7450  CONTINUE  “137 

CO  TO  7280  “ 1 3fl 

C  BRANCH  TO  7460  FROM  7270.00  7?70,01  “139 

C  7290,03  7420.01  ttl«0 

7 “60  CONTINUE  “l“i 

C  BRANCH  TO  7«70  FROM  7250.01  “1“2 

7«70  CONTINUE  “ 1 “3 

IF( lECON.LE , 1 )GO  TO  7“90  “1““ 

WRITE  (  fc,7«aO)CSM(n#I*i#NPER)  «1«5 

7480  FORMAT  </!«♦, SHT0T#1«P8,1)  “1«6 

WRITE  f  6,7410)  BUNA  “147 

C  BRANCH  TO  7490  FROM  7470,01  «1“B 


•  «5» 


EXHIBIT  fl 


7«90  IYRAsIYRAWl  «149 

C  BRANCH  TO  7500  FRO*  7200,00  4150 

7500  CONTINUE  4151 

IF(nEA.lT.J)nEAbJ  415? 

c  BRANCH  TO  7510  FRO  T120.02  7190,01  a  1  s 3 

7510  CONTINUE  4154 

NEsNfA  41 55 

C  eDr  *  *  *  *  PRINT  RESULTS  **********************  4156 
WRITE  (  6,7000)  4157 

WRITE  (  6,7520)  4150 

7520  FQRh*T(20XUJmaveRa0E  ANNUAL  BENEFITS  In  THOUSAND  DOLLARS)  4159 

WRITE  (  6,7550)  4160 

7530  FORMAT  (/27X,34HPRnjECT  BENEFITS  AT  CONTROL  POINTS)  4161 

WRITE (6,7580)  4162 

WRITE  (  6,7060)  (J,J«1 ,NE)  4163 

DO  7540  J«1,NE  4164 

7540  3M(J)aO,  4165 

SUMAbO ,  4166 

TMP«NYRS  4167 

TMP«1 ,/TMP  4168 

DO  7560  MXBl.NCPT  4169 

M«ICPT(MX)  4170 

SUMsO.  4171 

DO  7550  J«l,NE  4172 

IFflf (J,M).LE.O)  CO  TO  7550  4173 

VU( J,M)bVU(J,M)*Tmp  4174 

SM(J)bSM(J)aVU(J,M)  4175 

3UmbSUM*VU(J,m)  4176 

C  BRANCH  TO  7550  FROM  7540,07  7540,08  417" 

7550  CONTINUE  4178 

WRITE  (  6,7050)M,SUM, (VUCJ.M), Jb1,nE)  4179 

C  BRANCH  TO  7560  FROM  7540.04  4180 

7560  SumabShha+SUH  4181 

WRITE  (  6,7070)3UHA,(3m(J),Jb1,NE)  4182 

WRITE  (  6,7370)  4183 

7370  PObmaT  (/22X,40hprDjFCT  BENEFITS  ALLOCATED  TO  RESERVOIRS)  4184 

WRITE (6,7580)  4185 

C  BRANCH  TO  7580  FROM  7530.01  7620,01  4166 

C  7660,01  7700,01  4J8T 

7380  FORMA T ( 38X  SMFUnCTION)  4188 

WRITE  (  6,7060) (J,Jb1 ,NE)  4189 

DO  7590  JbI.NE  4190 

7590  SMfJ)BO,  4191 

SUMAbO,  4192 

DO  7610  MXbj.NCPT  4193 

MbICPT(mx)  4194 

SUMbO,  4195 

00  7600  JBI.NE  4196 

V( J,M)«V(J,M)*TMP  4197 

VLEFT(J,m)bVLEFT(J,M)*TMP  4198 

3M(J)bSM(J)»V(J,M)  4199 

3UMb3UMaV(J,m)  4200 

C  BRANCH  TO  7600  FROM  7590,05  4201 

7600  CONTINUE  4202 

WRITE  (  6*7050)m,3um,(V(J,m),Jb1»NE)  4203 

C  BRANCH  TO  7610  FROM  7590.02  4204 

7610  SUMAbSUM AW3UW  4205 

WRITE  (  6, 7070)SUMA,(3M(J), JbJ.NE)  4206 

WRITE  (  6,7620)  4207 

7620  PORMAT(/17X,50HPROJECT  PLUS  PRERROJECT  BENEFITS  AT  CONTROL  POINTS)  4208 
WRITF  (  6,7380)  4209 

WRITE  (  6,7060)  ( J, Jb j , NE )  4210 

00  7630  Jbi.nE  4211 

7630  SM(J)bo,  4212 

SUMAbO,  4213 

DO  7650  mxbj.NCPT  4214 

Mb ICPT (MX )  4?|5 

SUMbO,  4216 

DO  7640  J* 1 , Nt  4217 

V(J,m)bVmaX(J,m),vLEET(J,M)  4218 

Sm(J)bSM(J)aV(J,m)  4219 

SUMBSUMtV(J.M)  4220 


EXHIBIT  4 


>46* 


c  BRANCH  TO  7640  FROM  7630.05  4221 

7640  CONTINUE  4222 

WRITE  (  6,7050)M,3UM,(V(J,M),Jel,NE)  4223 

c  BRANCH  TO  7650  from  7630,0?  4224 

7650  8UHA»3UHAA3UH  4225 

WRlTF  <  6»7070)3UHA,(3h(J),J*1,nF)  4226 

WRITE  (  6#7660)  4227 

7660  F0RH*T  ( /2 1  X , 42hTQT AL  POTENTIAL  BENEFITS  AT  CONTROL  POINTS)  4228 

WRITE  (  6»75B0)  4229 

WRITE  (  6/7060)  (J,J»i,NE)  4230 

00  7670  J«1(NE  4231 

7670  SW ( J ) aO ,  4232 

3  U  M  A  a  o .  4233 

00  7690  HXal.NCPT  4234 

MaICPT(MX)  4235 

SUMaO.’  4236 

DO  7680  J«1(NE  4237 

3M(J)bSM(J)+VMAX(J,M)  4238 

3UM«3uhaVMAX( J,M)  4239 

C  BRANCH  TO  7680  FROM  7670.05  4240 

7680  CONTINUE  4241 

WRITE  f  6(7050)M,SUM,  (VMAXtJ,M),  Jal,Nt:)  4242 

C  BRANCH  TO  7690  FROM  7670.02  4243 

7690  8UMAb3UMA*SUM  4244 

WRITE  (  6(7070)3UMA, ( Sm ( J ) , J« J , nE )  4245 

WRITE  (  6(7700)  4246 

7700  FORMAT  </19X(46HR£ma!NInG  POTENTIAL  BENEFITS  AT  CONTROL  POINTS)  4247 
WRITE  (  6(7580)  4248 

WRITE  (  6,7060)  (J,J«1, NE)  4249 

DO  7710  J«1,NE  4250 

7710  3M(j)aO.  4251 

SUM A»0 ,  4252 

DO  7710  MX«1,NCPT  4251 

MaKPT(MX)  4254 

SUMaO.  4255 

00  7720  J«1,NE  4256 

3M(J)aSM(J)*VLEFT(J,M)  4257 

SUMaSUM*VLEFT(J,M)  4258 

C  BRANCH  TO  7720  FROM  7710.05  4259 

7720  CONTINUE  4260 

WRITF  (  6(7050)M,3UM, (VlEFT<J(M),J«l,NE)  4261 

C  BRANCH  TO  7730  FROM  7710.02  4262 

7730  SUMAaauMAASUM  4263 

WRITE  (  6(7070)SUMA,(Sm(J),Jb1,nE)  4264 

RETURN  4265 

C  BRANCH  TO  7740  FROM  7130.14  7130,17  4266 

7740  WRITE  (  6(7750)  4267 

7750  FORMAT ( i 1H  WRONG  STa  NO)  4268 

RETURN  4269 

END  4270 


-U7> 


EXHIBIT  4 


SUBROUTINE  INTPOK  J,NVAI.,TEmP,  VAR1 ,  VAR2,TmPP) 

DIMENSION  VAR1 (20,60? .VAR2<20, 905  U?72 

IP(TCHP,ST,VAR1 C1,J))  60  TO  9600  U27J 

u*i  9279 

Ll«2  9275 

60  TO  9650  4?76 

C  BRANCH  TO  9600  PROM  ,03  4277 

9600  00  9610  tL«2,NVAL  <l?78 

L«LL  4279 

IF(TEMP,LT.VAR1 60  TO  9620  4280 

c  branch  to  96io  FrOh  9600.00  9281 

9610  CONTINUE  4282 

C  BRANCH  TO  9620  FROM  9600,02  <1283 

9620  L 1 *L • 1  9289 

C  BRANCH  TO  9630  FROM  ,06  9285 

9630  THPP*  VAR2  (L  ,  J)«(  VAR  -TEMP) /(  VAR  1  (L,J)«VARt  (l.l,J>)*  9286 

.(VAR2U,J>.VAR2(ll,J»  4287 

RETURN  4288 

END  4289 


EXHIBIT  4 


•  98» 


UOUUUUUUOUU  ou  u 


SUBROUTINE  RF.APNG  4290 

C  SUMMA 9 V  OF  OUTPUT  FROM  PROP  723-X6-L2030  a29j 

COMMON/OTADM/  4292 

,  KCPT,KPPR,KP«RS,KRES,KUP5T,KDI V , KL , K PF R , K Q I L , * Sf R V , K UPQ t  4293 

COmmon/OTARG/  «?9a 

•  IZERoC3),lQNE(3),ITwu(3),JZFHn(3), JOnF C3),JTwn<3),  4295 

,  KZER0(3),K0nE(3),kTw0(3),nFMT(3)  4296 

COMMON  /ALPHA/  4297 

.  APfcRDU2)»APROCl2),IDIV(uO)»IPwRC«0),!YR,NPHR,NRES,GM2(«0),  4298 

.  TITLE (60),IPhkh  4299 

C0MM0N/8FTA/  4300 

t  NYRS.Il,I2»I3,I4,I5,l6,T7,I8ll9,IlO,CPTC40,8),ICPT(40),IRES(40)f  9301 

,  NCPT,NPEH,QUNIT,VUnIT  930? 

COMMOn/oLTaI/  4303 

.  4RRAY(l2»90,2),SYQI(40),QT(12,40)»9TnRB(12»30)*  9309 

.  ELE V ( 1 2*  30 ) *  SYE VP ( 30 ) *  E VP ( 1 2, 30) »  SVPwB (22) » POWE  R ( 1 2, 2? ) *  4305 

,  3Y3Mp(22),SHRTP(12,22),9YPMX(22),POwRP(12,20),SYQA(40),rjA( 12,40)  9306 

CQMmQn/GAMMA/  AVG(40,50)  4307 

11  --  UNREGULATED  FLOWS  430* 

12  --  RIVER  FLOWS  4309 

13  -•  DIVERSION  9310 

19  —  DIVERSION  SHORTAGE  4311 

15  --  DESIRED-FLOW  SHORTAGE  431? 

16  --  MINlMgM. FLOW  SHORTAGE  9313 

IT  ••  END-OF-PERIOD  STORAGE  4310 

IB  ••  Change  in  storage  at  End  of  period  4313 

19  —  END-OF-PERIOD  ELEVATION  431* 

110--*  RESERVOIR  OATA  4317 

BRANCH  TO  8000  FROM  8010.01  4318 

8000  FORm*T  ( 1 H 1 )  43)9 

BRANCH  TO  8010  FROM  8090^00  8070,00  4320 

8100,00  8130.00  8160,00  8190.00  4321 

8220,00  8300,00  8330,'on  «36G ,01  4322 

8010  FORmat  (23X, a2, 19A4)  4323 

WRITE  (  6,8000)  4324 

ICNDso  4325 

IF  CNYRS.LE.50)  GO  70  8030  4326 

nvps*50  4327 

WRITE  (  6,8020)  4328 

8020  FORMAT  ( 45h  30  YEAR  LIMIT  -  REARRANGES  EIR3T  50  VRs  ONLY///)  4329 

C  BRANCH  TO  8030  FROM  B010.'03  4330 

8030  IF  (It.LE.O)  GO  TO  8060  4331 

CALL  BINTP  (ICND,KCPT)  4332 

C  BRANCH  TO  8040  FROM  R050.'04  4333 

8040  write  C  6,8010)  TITLE  4334 

WRITE  C  6,8050) QUN I T  4335 

8050  FORMATf /47X,22H  UNREGULATED  FLO*S  IN  A4>  4336 

CALL  OUTPT  (H,1,IZERQ,JZER0,KZER0)  4337 

IF  (Il.LC.2)  00  TO  8060  4338 

Il«2  4339 

00  TO  8040  4340 

C  BRANCH  TO  8060  FROM  BOSO.'OO  8050,02  4341 

8060  IF  CI2.LE.0)  GO  TO  8090  4342 

CALL  BINTP  <ICND,KCPT)  4343 

C  BRANCH  TO  8070  FROM  8080.'04  4344 

6070  WRITE  (  6,8010)  TITLE  4345 

WRITE  C  6, 8080 )QUNIT  4346 

0080  F0RMATC/45X,27H  RIVER  FLO*  (REGULATED)  IN  A4)  4347 

CALL  OUTPT  CI2,l,IZER0,JZER0,KZER0)  4348 

IF  CI2.LE.2)  GO  TO  8090  4349 

12*2  4350 

GO  TO  6070  4351 

C  BRANCH  TO  8090  FROM  8060.'00  8080,02  4352 

8090  IF  (I3.LE.0)  GO  TO  8120  4353 

CALL  BINTP  CICND,KDIV)  4354 

C  BRANCH  TO  8100  FROM  8110,‘oa  4355 

8100  WRITE  (  6,8010)  TITLE  4356 

WRITE  (  6,8110) GUNI T  4357 

6110  F0RMATC/51X, 14H  DIVERSION  In  A4)  4356 

CALL  OUTPT  Cl3,2,IONE,JONE,KONE)  4159 

IF  (I3.LF.2)  GO  TO  6120  4360 

13*2  4361 
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EXHIBIT  4 


8120 

« 1 30 
81  U0 


8150 

* 

8160 

8170 


on  rn  8ioo 

If  (I4.LE.0)  Cn  TQ  8150 
CALL  BJMTP  (ICND.KOIV) 


BRANCH  TH  8120  FROM 


BRANCH  rn  8150  FROM 


«PITE  (  6,8010)  TITLE 
WRITE  (  6  #  8 1  6  0  )  BUM  T 

FORmaT(/47X,23h  DIVERSION  SHORTAGE  IN  A4) 
CALL  OUTPT  (I«,2, IONF, JONE.KONF) 

IE  (I4.LE.2)  GO  TO  8150 
1682 

GO  TO  8150 


IF  (I5.LE.0)  GO  TO  8180 
CALL  0INTR  (ICND,KCPT) 


BRANCH  TO  8150  FROM 


BRANCH  TO  8160  FROM 


WRITE  (  6,8010)  TITLF 
WRITE  (  6,8170) QUNI T 

F0RMAT(/46X,26H  DESIRED  FLO«  SHORTAGE  IN  A4) 
CALL  OUTPT  (15, 1, IZE»0»JONE,KZFRO) 

IF  (I5.LE.2)  GO  TO  8180 
I5«2 

GO  TO  8160 


8180  IF  (16, LF ,0)  GO  TO  8210 
CALL  8INTP  (ICN0,KCPT) 


BRANCH  TO  8180  FROM 


BRANCH  TO  8190  FROM 


8190  WRITE  (  6,8010)  TITLE 
wRttr  (  6,8200)QUNTT 

6200  FORMAT (/46X,26H  mjnimuM  FLOW  SHORTAGE  IN  A4) 

CALL  OUTPT  (16, J,IZfRO,JONE,KZERO) 

IF  (I6.LE.2)  GO  TO  8210 
1 6«2 

GO  TO  8190 

-  BRANCH  TO  8210  FROM 

8210  IF  (NRES.LE.O)  RETURN 

IF  (I7.LE.0)  GO  TO  8240 
CALL  BINTP  (TCND,WRF.S) 

c  BRANCH  70  8220  FROM 

^8220  WRITE  <  6,8010)  TITlF 
WRITF  (  6,8230)VUNIT 

8230  FORm*T(/63X,26H  END  OF  PERIOD  STORAGE  IN  A4) 

CALL  OUTPT  (I7,5,IZERO,JZERO,KZERO) 

IF  (17, LE ,2)  GO  TO  B2a0 


I7»2 

GO  TO  8220 

c  BRANCH  TO 

8260  IF  (I8.LE.0)  GO  TO  8320 

IF(IT.LE.O)  CALL  BlNTPt ICND,KRES) 

00  8260  J«2, NYRS 
DO  8250  MX«1,NCPT 
H«ICPT(mX) 

IF(IRES(M),LE,0)  GO  TO  8250 
AVG(M,J)«ARRAY(NPER,M,J«i) 
r  BRANCH  TO 


8250  CONTINUE 
C 


BRANCH  TO 


8260  CONTINUE 

DO  8290  J« 1 , NVR8 
00  8280  MX»1,NCRT 
m*ICPT (MX) 

IF  (IRES(M) .Lfc.O)  GO  TO  8280 
TMP.AVG (M, J) 

AVG(M, J)« ARRAY (NPER,m,J)«TMP 
00  8270  I«1,NPER 

TEHP«ARRAY(I,M,J) 

ARRAY(I,M, J)«TEmP.TmP 


TMP«TEMP 

c 


branch  to 


8270  CONTINUE 
C 


BRANCH  TO 


6280  CONTINUE 


8260  FROM 


8250  FROM 
6260  FROM 


8270  FROM 
8280  FROM 


8090, 0O 

R1UO.OU 


8120,00 

8170,04 


8150,00 

8200,04 


8160,00 

8230,04 


6210,01 


8240,03 

6240,02 


8260,07 

8260,02 


4562 

8110,02  4563 

4364 

4365 

4366 

4367 
436R 

4369 

4370 

4371 
437? 
4373 

8140,02  «37« 

4375 

4376 

4377 
437« 

4379 

4380 

4381 

4382 

4383 

4384 

8170,02  4385 

4386 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 

4395 

8200,02  4396 

4397 

4398 

4399 

4400 

4401 

4402 
4  4  0  3 
UliOU 

4405 

4406 

4407 

8250,02  4408 
4409 

uaio 

4411 

441? 

4413 

4414 

4415 

8240,05  4416 

4417 

4418 

4419 

4420 

4421 

4422 

4423 

4424 

4425 

4426 

4427 

4428 

4429 

4430 

4431 

8260,04  4432 
4433 


EXHIBIT  « 


•50* 


BRANCH  TO  8290  FROM  8280.01 

continue: 

BRANCH  TO  8100  PROM  8310.'09 

WRITE  (  8,8010)  TITLE 
WRITE  (  8,8310) VUNl T 

PORHAT(/'«8X,  19h  STORAGE  CHANGE  IN  A9) 

CALL  OUTRT  {I8,«/I2ER0,JZER0,NFhT) 

IP  (I8.LE.2)  GO  TO  8320 
10*2 

GO  TO  8300 


IP  (I9.LE.0)  GO  TO  8380 
CALL  BJNTP  <ICND,KRtS) 


branch  TO  6120  PROM  8290.00  8310,02 


BRANCH  TO  6330  PROM  8390.09 


I  WRITE  (  8,8010)  TITLE 
WRITE  (  8,8390) 

I  FORmAt(/«5X,32h  EnD  OP  PERIOD  ELEVATION  In  PFET) 
call  OUTPT  (I9,5,ITW0, JTW0,KTW0) 

IP  (19.LE.2)  GO  TO  8380 
I9«2 

GO  TO  8330 

BRANCH  TO  8350  PROM  8380.0? 

I  PORmA  T ( /52X , 1 5H  RESERVOIR  DATA  ) 

BRANCH  TO  8380  PROM  8320.00  8390,02 

I  IPCIlo.LE.O)  RETURN 
WRITE  (  6,8010)TITL£ 

WRITE  (  8,8350) 

DO  8550  MX«1,NCPT 
M»ICPT(MX) 

IP(IRES(M),LF,0)  GO  TO  8550 
lYEARalVR 

GO  TO  ( 8380 , 8370  ) ,  II  0 
I  1F(IPwR(M),LE,0)  GO  TO  8550 

BRANCH  TO  8380  PROM  8380.07 

I  REWIND  1 

WRITE  f  8,8390)  M,(CPT(M,I),I«1,6) 

I  F0RMATC/1X,96(1m*)/8H  ♦  CP  NO  ia,lX,8AU,2H  ♦/1X,<16(1HW)  ) 
IF(IPwKW.LE.O)  GO  TO  8at0 
WRITE  (  8,8900) 

I  PORMAT(/13X,77H  MONTH  STORAGE  ELEV  INFLOW  OUTFLOW 

,  EVAP  AVG  GEN  GEN  PK/23X.88H  AC-FT  FT  CPS 

, CP 3  AC-FT  MEGAWATT  KILOWATT  ) 

GO  TO  8930 

BRANCH  TO  8910  FROM  8390.01 

I  WRITE  <  8,8920) 

)  FORMAT ( / 1 3X , 77H  MONTH  STORAGE  ELEV  INPLnw  OUTFLOW 

,  EVAP  GEN  PWR  /23X,68H  AC-PT  FT  CPS 

,CFS  AC-FT  1000  kwh  ) 

BRANCH  TO  8930  FROM  8900.03 

)  DO  859Q  J*1,NVRS 

RE  AD ( 1 ) SY QI , 01 , STORB, ELEV , 3 YE VP,EVR, SYPwr, POWER, SY8HP , SHRTP, SVPMX , 
,  POWRP , 3 YOA , OA 

WRITE  (  8, 8990)1  YEAR 
)  format f /3H  yr,I5) 

IF  (  IPwR ( M ) , LE , 0 )  GO  TO  8510 

K«TPWR(M) 

IPIIPwKW.LE.O)  GO  TO  8980 

SYPwR(K)«3YPWR(K)»,jl9i 

3YSHP(K)«SY3HP(K)*,1191 

DC  8950  I«t,NPER 

POWER ( I , K ) »POwER ( I  *  K ) *0 , 00 1 

BRANCH  TO  8950  FROM  8990.08 

)  CONTINUE 

3YPwR(«)»3YPwR(K) *0,001 

WRITE  (  8,8980)  ( APE «D ( I ) , A  PRO ( I ) , STORB ( I , M ) , ELE V ( I , m ) , QT ( T , m ) , 

.  QA(l,M),fvP(I,M),POwERa,K),POwRP(I,K),I«i,NPER) 

BRANCH  TO  8980  FROM  8950.0? 

)  FORMA t ( 1 0 X , 2A9 , F 1 2 , 0 , P 1 0 , 2 , P 1 0 , 0 , F 9 , 0 , F8 , 0 , F ! 2 . 2, F 1 0 , 0 ) 

WRITE  (  8,8970)  SYQI(M),SYQA(M),SYEVP(M),SYpwR(K),SYPMX(K) 

)  FORMAT  (1  3X,  5M  YEAR  22X.F1  0,0,F9.0,F8,0,F12,2,MO,0) 

GC  TO  8530 

BRANCH  TO  8980  FROM  8990.03 
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8460  WRITE  (  8*8490)  (  APERD  Cl)  *  APRO  ( I  )  *  3TORB  <  I  ,  M ) ,  E|.E  V  C I  *  M  )  *  Ql  ( I ,  m  ) ,  4506 

,  QA(I,m),eVP(I*m),poweR(I*k)*I«1*NPER)  «507 

C  BRANCH  TO  8490  PROP  8480.00  6510,01  4508 

6490  FORMATCl0X,2A4*Fl2,0.Fl0.2,Pl0,0*F9,0,F8,0,Fl2,0)  4509 

WRITE  C  6*6500)  SYOl CM) * SYOA (M ) , STE VP C*) , grPwR I K )  «510 

C  BRANCH  TO  8500  PROM  8520,01  4511 

8500  FORMATCl JX,5H  YEAR  22x*P 10.0*P9,0*P8,0,Pl2,0)  4512 

00  TO  6550  4513 

C  BRANCH  TO  8510  PROM  8440.01  4514 

6510  00  6520  I«1,NPER  4515 

WRITE  (  6*8490)  AP£RD(l)*APRD(I)«STORR(!*M)*ELfV(I*M)*Q!(T*M),  4516 
,  QA(I,M),EVP(I,M)  4517 

C  BRANCH  TO  8520  PROM  6510,00  4518 

8520  CONTINUE  4519 

WRITE  C  6*8500)  SYQl (M) ,3YQA(M) ,8YFVP{M)  4520 

C  BRANCH  TO  8530  FROM  8470.01  8500,01  4521 

6530  IYEARwIYEARM  4522 

C  BRANCH  TO  8540  FROM  8430,00  4523 

8540  CONTINUF  4524 

C  BRANCH  TO  8550  PROM  6360.03  8360,05  4525 

C  6370.00  4526 

8550  CONTINUE  «527 

RETURN  4528 

ENp  4529 
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SUBROUTINE  B!NTP(  ICNO>LMT)  45in 

DIMENSION  I ND  (*> 3  4531 

CCmMOn/0ET*/  453? 

.  NYRS,TrGC10),CPTC40,8),!CPT(40),IrESC40),NCPT,NPEB  455% 

COMMON/OlTM/  ARRAyU2,40,2)  453u 

COMMOn/G****/  AVG(40»50)  4535 

if  (icNo.Ea.i)GO  to  rojo  453*, 

DC  90QO  I«l*9  4537 

9000  IND( I )«0  9538 

1 0  »  0  4539 

00  9010  I » 1  #  6  4540 

IF(IRG(I).LE.O)GO  TO  9010  4541 

1 0 ■ X  0 ♦  1  454? 

I  NO ( I ) ■ 1 0  4543 

C  BRANCH  TO  9010  FROM  9 0 0 0 . 0 ?  9000,03  4544 

9010  CONTINUE  4545 

ir<lRGf7).LE.0.AN0tlRGC8).U.0)  GO  TO  9020  4546 

IO«IO*l  4547 

lN0(7l»I0  4548 

C  BRANCH  TO  9020  FROM  9010.’01  4549 

9020  IF(IRq(9),LE.O)GO  TG  9030  4550 

ID»ID*t  U  5  5, 1 

In0(9)«I0  455? 

C  BRANCH  TO  9030  FROM  .07  9020.00  4553 

9030  00  9040  I » 1 , 6  4554 

IF(I«G(D.GT,0, AND, INOtD.GT, 0)60  T0  9060  4555 

C  BRANCH  TD  9040  FROM  9030,'o0  4556 

9040  CONTINUE  4557 

IF(C!RG(7).lE,0,ANO,IRG(B).LE,0),DR.lNO(7),tF,0)GO  TO  9050  4558 

1*7  4559 

GO  TO  9060  4560 

C  BRANCH  TO  9050  From  9040.‘oi  4561 

9050  IF(IRG(9).LE.OtOR.lND(9)1Lf.O)RETURN  4562 

I*’  4563 

C  BRANCH  TO  9060  FROM  9030.’oi  9040,03  4564 

9060  IDNao  4565 

IONNilO.INDCI)  4566 

IF(ICNO.FQ.O)  GO  TO  9080  4567 

00  9070  J«l»I  4568 

IF(IRg(J)iGT,0,ANO,IND(J),EO,0)ION»IOn*i  4569 

C  BRANCH  to  9070  FROM  9060.'03  4570 

9070  CONTINUE  4571 

IF(I,E0.9,ANO,IRG(7),GT,0,ANO,IRG(B),GT,0)IDN»IDN-1  457? 

C  BRANCH  TO  9080  FROM  9060.'o?  4573 

9080  I ND ( I ) ■ 0  4574 

PEmINq  4  4575 

DO  9140  J31.N7RS  4576 

IFCICnO.EG.O)  GO  TO  9J00  4577 

DO  9090  K*1 » ION  457fl 

9090  RE  A  D ( 4 )  4579 

C  BRANCH  TO  9100  FROM  9080.03  4580 

9100  IF ( I ,EQ,9)G0  TO  9110  4581 

REAO(4)(AVO(M, J) ,m«! ,tMTJ, ( (ARRAY(K,M# j) fK»l ,NPER) ,H»1,LHT)  4582 

GO  TO  9120  4583 

C  BRANCH  TO  9110  FROM  9100.'00  4584 

9110  READ(4) ( (ARRAY (K ,M,J) ,k»1 , NPER) ,m«i ,lmT)  4585 

C  BRANCH  TO  9120  FROM  QJOO.'o?  4586 

9120  IF ( IDNN ,EQ, 0 ) GO  TO  9140  4587 

DO  9130  K»l * IDNN  45S3 

READfa)  4589 

C  BRANCH  TO  9J30  FROM  91?0.'01  4590 

9t3o  continue  4591 

C  BRANCH  TO  9140  FROM  90B0.'02  9120.00  4592 

9140  CONTINUE  4593 

ICNO-1  4594 

return  4595 

END  4596 
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o  o  r*  ci  o  c*  o  c»  n  o  n 


SUBROUTINE  OUTPT  ( I NO ,  I  TS T ,  IFm T ,  JF M T  ,  kF mT  ) 
f)JMf  sjSJOM  AVf  (  12)  ,  JpMT(  3)  » Jf-  MT  {  55  ,KF«T  (4) 

COMMON  /ALPHA/ 

,  APF_PDCl2),APRn<l25,ti)IV(40),lPMR(«0),ITP,NPWR,MRFS,QM2(ao5, 

,  TITLE  (6(l),IPwK» 

COmmon/BETA/ 

,  NYRS,IfiG(10),CPT(4o,8),lCPT(40)»lR£S(4Q),NCPT»NPER 
COmmom/DLTaI /  A»RAY( 12.40,2) 
cn«Mn\/ gamma/  AVGCap#so) 

;  BRANCH  Tn  9200  FROM  9U30.0  1  9*520,0  1 

9200  FORMAT  ( 1 h i ) 

*  THE  CARRIAGE  CONTROL  (TO  PRINT  mqre  THAN  ONE  RECORD  * 

*  TO  A  LINE)  DIPPER  ON  SOME  STSTfNS,  FOR  SYSTEMS  THAT  * 

*  SUPPRESSES  The  SPACE  AFTER  PRINTjNGtOPPOSEO  TO  BEFORE  * 

*  PRINTING)  ADO  Tn  THE  FORMAT  STATEMENT  A  CARRIAGE  CONTROL  * 

*  Character  Tn  CARDS  wITH  an  'a*  In  CulU“n  73,  DELETE  * 

*  Same  PROM  CARD  WITH  'O',  ACTIVATE  STATEMENTS  that  HAVE  AN  * 

*  '!'  In  column  71  (SUBROUTINE  OUTPT),  VICE  VFRSA  FOR  SYSTEMS* 

*  that  suppresses  space  before  printing  * 


BRANCH  to  R218  PROM  9310.0!  4618 

9 1 6 U A  54A82,  RAEY  HB/(TAmroF  0129 

9210  FORMaT(/Bh*  YEAR  , ?9  A  4 )  A4620 

C  BRANCH  TO  9220  FROM  9310,05  9440,04  4621 

C  2264D  )5VA  H4.X321 ,*H1 (TA«ROF  0229 

9220  FORM  A  T ( 1 H  , 1 23X , 4H  aVG)  04623 

C  branch  Tn  9230  PROM  9310,00  4624 

9230  FORMAT  C/1X,46(1h*)/sh  ♦  CP  NO  I«,1X,8A4,?H  ♦  / 1 X , 46  ( 1 H*  )  )  4625 


9240  FORMAT  (  /E>h  YEAR,  15) 


BRANCH  TO  9240  FROM  9440,02  4626 

4627 

BRANCH  TO  9250  FROM  9440,03  4629 

C  9264 A  )4AB2,0n  PC  HB/CTAMROP  0529 

9250  FORMAT (/9h*  CP  NU.26A4)  A4630 

C  BRANCH  TO  9260  FROM  9340,00  463! 

C  2364D  )LATOT  H6,X121,*H1 (TAmroF  0629 

9260  PnRMA  T  (  1 H  ,121X,6H  tD)TAL)  D4633 

C  4634 

ANYR3RNYR3  4635 

GO  TO  (9270,9440,9270) , INO  4636 

9270  DO  9430  MX»1,NCPT  4637 

MBlCpT(MX)  4639 

GO  TO  (9310,9290,9300.9290,9290), ITST  4639 

9280  IF(IOIV(M))  9310,9430,9310  4640 

C  BRANCH  TO  9290  FROM  9270,0?  4641 

9290  IF  (IRES(M))  9430,9410,9310  4642 

C  BRANCH  TO  9300  FROM  9270,02  4643 

9300  IF  (QM2(M),LF,0,.ANn.QM2(M),GT,C*1l))  60  TO  9430  4644 

C  BRANCH  TO  9310  PROM  9270,02  "260,00  4645 

C  9290,00  4646 

9310  WRITE  (  6,9210)  M, (CPT(M,K),K«l,9)  4647 

WRITE  (  6,9210)  (APERD<n#APBD(I),!»!,NPEH)  4646 

IF  (ITST, EG. 4)  GO  Tq  9340  4649 

IF  (ITST, fQ, 5) GO  TO  9320  4650 

rF(rTST,EO,2)M«lABS(tOIV(M))  4651 

WRITE  (  6,9220)  4652 


GO  TO  9350 

9320  CONTINUE 

WRI TF ( 6, 9330 ) 


9330  FORMA  T ( i h  ) 

GO  TO  9350 

9340  wRjTE  (  6,92fe0) 

9350  DO  9360  I«1,NPER 
9360  AVE(I)»0, 

TAVE  ■  0 
IYEAR  ■  IYR 
DO  9390  J»1 ,NYRS 


K«l,8)  4647 

RO(n,I«l,NPER)  4648 

4649 

4650 

4651 

4652 

4653 

BRANCH  TO  9320  FROM  9310,03  4654 

4655 

14656 

BRANCH  TO  9330  FROM  9180,00  9a20,00  4657 

9440,05  9500,00  4656 

14659 

4660 

BRANCH  TO  9340  FROM  9310,02  4661 

4662 

BRANCH  TO  9350  FROM  9310,06  9330,01  4663 

4664 

4665 

4666 

4667 
4669 
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WRlTF(fc,IFMT)lYEAR, (ARRAYCI 

**,J)»I«1,NPER) 

4669 

I YEARbIyEARWI 

4670 

DO  9370  I«1#NP£B 

9671 

<*170 

4VE{n«*VCm*KRRAY(I,M,  J) 

467? 

IE(IT3T,EQ.5)GO  TO  9380 

9673 

wRITE<6, JFMT)AvG(m,  J) 

9679 

r ave  ■  tavewavg(m, j) 

9675 

GO  TO  9390 

9676 

C 

BRANCH  to 

9360  FROM 

9370.01 

9677 

918(5 

COvTjvUE 

9670 

wRITF<6,9330) 

19679 

C 

BRANCH  to 

9390  FROM 

9360.03 

9370.09  4680 

9390 

COnTTnUE 

4661 

IF  C!7ST,EQ,U)  GO  TO  9410 

4682 

DO  9000  I«l,NPfR 

4683 

<S  0  0  0 

AVE(T1«AV£(I)/ANYRS 

4684 

c 

BRANCH  TO 

9410  FROM 

•'390.01 

4685 

9  u  1  0 

WRITE (6,KEMT) (AVECI) »I«1,NPER) 

4686 

TAVE  ■  TAVE/ANYRJ 

4687 

IE(ITST.E0.55  GO  TO  9420 

4688 

WRITE { 6 , JE M T  )  TAVE 

4689 

GC  TO  9u30 

4690 

c 

BRANCH  TO 

9420  FROM 

9410.0? 

4691 

9u20 

CONTINUE 

9692 

wRITE(6,9330) 

19693 

C 

BRANCH  TO 

9430  FROM 

9270,00 

9280.00  9699 

C 

9290,00  9300.00 

9410. 0U 

9695 

9  4  30 

CONTINUE 

9696 

"RITE  (  6,92005 

9697 

RETURN 

9698 

C 

BRANCH  TO 

9440  FROM 

9260.02 

9699 

9440 

IYEARalYR 

9700 

DO  9520  J«1,NYR3 

9701 

WRITE  (  6, 9240)  IYEAR 

9702 

WRITE  (  6,9250)  (APERD(I)»APRD(I)»I«1, 

NPER) 

9703 

IECITST.NE.5)WRITE(6.9?20) 

9704 

IE(IT5TtEG,5)wRITE(6,93305 

14705 

DO  95  j  0  «X»1,NCPT 

4706 

w«1CPT(mX5 

4707 

GC  TO  (9UB0, 9450, 9470, 9460, 9460), ITST 

4708 

9U5P 

IE  (  IDl V(H) )  9490,9510,9490 

4709 

C 

BRANCH  Tl 

9460  FROM 

9440.08 

4710 

9  4  6  0 

IE  (IPES(M))  9510,9510,9480 

9711 

c 

BRANCH  TO 

9470  FROM 

9440. 0B 

9712 

9  u  7  0 

IE  (Qh?(m).lE.0.,AND,Qm2(h), 

GT.C-l,)) 

GO  TO  9510 

9713 

C 

BRANCH  TO 

9480  FROM 

9440.08 

9960,00  9719 

9«eo 

wRITE(6,IEMT)w, (aRRAY(I,h, J) 

,I«J»NPfcR5 

9715 

IE(ITST,EO,55GO  TO  9500 

9716 

*RITE(6, JEWT5AVGCH, J) 

9717 

GO  Tn  9510 

9718 

c 

BRANCH  TO 

9490  FROM 

9450.00 

9719 

9  UP  0 

m« I  ABB ( 101 V (m ) ) 

9720 

WRITE(6,IFMT)ICPT(HX), (ARRAY(I,h,J),I»1,hPER) 

9721 

WRITP(6, JFH?)A»ur<#J) 

9722 

GO  Tn  9510 

9723 

c 

BRANCH  TO 

9500  FROM 

9UB0.01 

9724 

9500 

CONTINUE 

9725 

WRITE (6,9330) 

19726 

C 

BRANCH  to 

9510  FROM 

9440.06 

9950.00  9727 

c 

9460,00  9470,00 

9480.03 

9990.03  9728 

9510 

continue 

9729 

IyEaR.IyEAR+1 

9730 

c 

branch  to 

9520  ERrtM 

9440.01 

9731 

9520 

continue 

973? 

WRITF(6, 92005 

9733 

RETURN 

47 

END 

<J73S 
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